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<< 26MEGABYTES 


Sudáel бү 5-100 microcomputer systems can easily handle 100 million 
byfes.' ecause Morrow Designs" now offers the first 26 megabyte hard disk 
Tito for S-100 systems—the DISCUS M26™ Hard Disk System. 

Ithas 26 megabytes of useable memory (29 megabytes 
Unformatted). And it's expandable to 104 megabytes. 

The DISCUS M26™ system is delivered complete— 
а 26 megabyte hard disk drive, controller, cables and operating system for 
gust $4995. Up to three additional drives can be added, $4495 apiece. ~. 

The DISCUS M26™ system features the Shugart 8 
Winchester-type sealed media hard disk drive, in а handsome metal cabină 
with fan and power supply. i 
The single-board S-100 controller incorporates intelli 
gence to supervise all data transfers, communicating with the CPU via | 
three 1/0 ports (command, status, and data). The controller has the ability to 
generate interrupts at the completion of each command to increase system 
throughput. There is a 512 byte sector buffer on-board. And each sector canbe 
, Individually write-protected for data base security. \ 

The operating system furnished with DISCUS M26". | 
A coms is the widely accepted CP/M* 2.0. қ 
See the biggest, most cost-efficient memory ever inte 


d ~ duced for S-100 systems, now at your local computer shop. If unavailable % | MORROW DESIGNS" 
—* locally, write Morrow Designs™ 5221 Central Avenue, Richmond, CA 94804, | Th i 
Or call (415) 524-2101, weekdays 10-5 Pacific Time. -- | inker 


/ “CP/M is a frademark of Digital Research. 


LA 


Å 5. 
К 


S-100 


MIGRO SYSTEMS 


Volume 1 Number 2 


Editorial Correspondence should be sent 
to: S-400 MICROSYSTEMS, BOX 1192, 
Mountainside, NJ 07092. 


STAFF 


Sol Libes 
publisher/editor 


Russell Gorr 
executive editor 


Dennis Thovson 
technical editor 


Jacob Epstein 
CP/M* editor 


Jon Bondy 
Pascal editor 


Don Libes 
assistant editor 


Lennie Libes 
Susan Libes 
subscriptions/office manager 


5-100 MICROSYSTEMS is seeking articles 
on S-100 software, hardware and applica- 
tions. Program listings should be typed on 
white paper with a new ribbon. Articles 
should be typed 40 characters/inch at 10 
pitch. Author's name, address and phone 
number should be included on first page 
of article and all pages should be num- 
bered. Photos are desirable and should 
be black and white glossy. 


Commercial advertising is welcomed. 
Write to S-100 MICROSYSTEMS, Box 1192, 
Mountainside, NJ 07092, or phone Sol 
Libes at 201-277-2063 after 4 PM EST. 


ТМК Digital Research 


March/April 1980 


IN THIS ISSUE 


North Star Topics 
by Randy Reitz 
Linear Programming Techniques 
in Pascal 
by William Yarnall 


Introduction to CP/M*, Part 2 
by Jake Epstein 
Addressing the Cursor 
by Larry Stein 
5-100 Bus — New Versus Old 
by Sol Libes 
Product Review: CGS-808 Intelligent 
Color Graphics Board 
by Jon Bondy 
Tarbell Disk Controller Mods 


Hardware Mods by George Lyons 
Improved BIOS by Marty Nichols 


DEPARTMENTS 


Editor's Page 

5-100 MICROSYSTEM News 
Letters to the editor 

Club Directory . 
Advertiser Index 
Subscription Information 
New Products 


$-100 MICROSYSTEMS is published six times a year by 
Libes Inc. Controlled circulation postage paid at Westfield, 
NJ 07090, and application to mail at controlled circulation 
postage rates is pending at Westfield, NJ. POSTMASTER: 
Please send Form 3579 to S-100 MICROSYSTEMS, P.O. Box 
1492, Mountainside, NJ 07092. 

Copyright © 1980 by Libes, Inc. 

All rights reserved, reproduction prohibited without permis- 
sion. 


Editor’s Page 
by Sol Libes 


The following is reprinted from-the February 1980 issue of BYTE magazine 
and I feel requires no further comment here. 


Battle of the Buses 


In the October 1979 “BYTE News,” 
page 107, Sol Libes contends, in an item 
about the S-100 bus, that “those who 
wish to have a machine capable of get- 
ting the maximum benefits of micropro- 
cessors must go the S-100 route.” While 
Mr Libes was comparing the S-100 bus 
to all-in-one systems, such as the TRS-80 
and PET, his statement leaves out a 
number of computer systems with as 
much capability as S-100 systems, 
perhaps more in some cases. For exam- 
ple, the SwTPC S/09 and the Ohio 
Scientific Challenger III Series are two 
systems that come to mind. The former 
uses a 6809 processor with the SS-50 bus 
(see October BYTE, inside front cover), 
and the latter uses 6800, 6502, and Z80 
processors and apparently OSI's own 
bus (see back cover, same issue). Both of 
these systems have a 20-bit address bus 
for large memories. SwTPC and several 
other companies make SS-50 bus 
systems using the 6800. Other non-S-100 
bus systems include the Heath H8 and 
H11. Any of these systems, and pro- 
bably others that I have left out, can be 
as good for serious personal computer 
users as any S-100 bus computer. The 
S-100 bus is not the only possible route. 

Mr Libes also writes that "the S-100 
bus is not processor dependent." This 
statement is debatable, in spite of the ex- 
istence of S-100 boards for a number of 
microprocessors. Several signals on the 
S-100 bus are generated ONLY by the 
8080. Any other processor must be 
"bent" into generating (or responding to) 
these 8080-specific signals. 

Personal computing could use a truly 
processor-independent bus. I feel that 
the S-100 bus will not be totally satisfac- 
tory in this role. 
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The mention of specific products in 
this letter does not necessarily constitute 
endorsement of these products. My 
point is simply that there are other buses 
besides the S-100, and that systems using 
these other buses can be just as capable 
as S-100 systems. 


Jim Howell 
5472 Playa Del Rey 
San Jose CA 95123 


Author Libes replies: 

Thank you for your letter regarding 
my comments on S-100 systems in the 
October BYTE News column. Despite 
the views expressed in your letter, 1 still 
stand by my view that "those who wish 
to have a machine capable of getting 
maximum benefits of microprocessors 
must go the S-100 route." I agree with 
you that SS-50 and OSI Challenger III 
systems offer more power than inte- 
grated systems such as the TRS-80, Ap- 
ple and PET. However, they still leave 
much to be desired compared to S-100. 1 
will explain shortly. 

Further, I also stand by my statement 
that "the S-100 bus is not processor 
dependent." The fact is that presently 
there are manufacturers selling six dif- 
ferent 8-bit processor boards (8080, 
8085, Z80, 6502, 6800 and 6809) and 
five different 16-bit processor boards 
(9900, LSI-11, 8086, Z8000 and Pascal 
Microengine) for S-100 systems. This 
means that eleven microprocessors have 
already been interfaced to the S-100. I 
do not know of any other system with 
this processor independence. Many of 
these microprocessors could not even be 
interfaced to buses such as the SS-50 or 
OSI without sacrificing performance. 

When it comes to maximum power 
and flexibility the S-100 offers the 
following advantages over all other 
systems: 


9 More software available. There are 
several times more languages, 
operating systems and applications 
packages for S-100 systems than for 
any other system. 

€ There are currently close to two 
dozen different manufacturers of 
S-100 mainframes and about fifty 
manufacturers of over 400 S-100 
plug-in boards. This is many times 
more than for any other system. 

€ There is greater computer power 
capability with S-100. What other 
system has direct addressing of up to 
16 megabytes of memory (24 address 
lines) and 64 K input/output ports 
(16 address lines), up to eleven vec- 
tored interrupt lines, up to sixteen 
masters on the bus (with priority), up 
to twenty-three plug-in slots on the 
motherboard, up to 10 MHz clock on 
the bus, plug-in operator front panel, 
and more. 

€ The S-100 bus is now standardized by 
the Institute of Electrical and Elec- 
tronic Engineers (IEEE) assuring con- 
formance among manufacturers. 


Regarding your reference to the H8 
bus, note that Heath has discontinued 
production of this unit. Besides, it was 
dedicated exclusively to the 8080 and 
therefore was destined to an early death. 
The Heath H11 is essentially the same 
as and uses the same bus specifications 
as a Digital Equipment Corp LSI-11. Few 
other firms support the LSI-11 with pro- 
ducts within the price range of the 
typical hobbyist. The hardware and soft- 
ware facilities, compared to the S-100, 
are limited and expensive. 

Again, thank you for reading my col- 
umn and I welcome any further com- 
ments you wish to make regarding my 
opinions. 


Sol Libes 
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„. At Intersystems, 
dump" is an instruction. 


Not a way of life. 


(Or, when you're ready for IEEE 5-00, will your 
computer be ready for you?) | 


LEM 2 3 
We're about to be gadflies again. 

While everyone’s been busy 
trying to convince you that large 
buses housed in strong metal 
boxes will guarantee versatility 
and ward off obsolescence, we've 
been busy with something better. 
Solving the real problem with the 
first line of computer products 
built from the ground up to con- 
form to the new IEEE 5-100 Bus 
Standard. Offering you extra ver- 
satility in 8-bit applications today. 
And a full 16 bits tomorrow. 

We call our new line Series 
ІІМ And even if you don't need the 
full 24-bit address for up to 16 
megabytes (!) of memory right 
now, they're something to think 
about. Because of all the perform- 


ance, flexibility and economy 
they offer. Whether you're looking 
at a new mainframe, expanding 
your present one or upgrading 
your system with an eye to the 
future. (Series ІІ boards are com- 
patible with most existing S-100 
systems and all IEEE S-100 Stan- 
dard cards as other manufacturers 
get around to building them.) 
Consider some of the fea- 
tures: Reliable operation to 4MHz 
and beyond. Full compatibility 
with 8- and 16-bit CPUs, pe- 
ripherals and other devices. Eight 
levels of prioritized interrupts. Up 
to 16 individually-addressable 
DMA devices, with IEEE Standard 
overlapped operation. User-selec- 
table functions addressed by DIP- 
switch or jumpers, eliminating sol- 
dering. And that's just for openers. 
The best part is that all this 
heady stuff is available now! In 
our advanced processor — a full 
IEEE Bus Master featuring Memory 
Map™ addressing to a full mega- 
byte. Our fast, flexible 16K Static 
RAM and 64K Dynamic RAM . 
boards. An incredibly versatile and 


economical 2-serial, 4-parallel 
Multiple I/O board. 8-bit A/D-D/A 
converter. Our Double-Density 
High-Speed Disk Controller. And 
what is undoubtedly the most flex- 
ible front panel in the business. 
Everything you need for a com- 
plete IEEE S-100 system. Available 
separately, or all together in our 
new DPS-1 Mainframe! 

Whatever your needs, why 
dump your money into obsolete 
products labelled “IEEE timing 
compatible" or other words peo- 
ple use to make up for a lack of 
product. See the future now, at 
your Intersystems dealer or call/ 
write for our new catalog. We'll 
tell you all about Series Il and the 
new IEEE S-100 Bus we helped 
pioneer. Because it doesn't make 
sense to buy yesterday's products 
when tomorrow's are already here. 


[mfersyysfenms 


Ithaca Intersystems Inc., 
1650 Hanshaw Road/P.O. Box 91, 
Ithaca, NY 14850 
607-257-0190/TWX: 510 255 4346 


S-100 MICROSYSTEM NEWS 
by Sol Libes 


UCSD REVOKES LICENSES 
TO DISTRIBUTE PASCAL 

The University of California, San 
Diego (UCSD) has sent out a letter to all 
computer clubs that are licensed to 
distribute the UCSD Pascal package that 
their license is terminated effective 
April 2, 1980. These organizations paid 
$250 for the license and some of these 
organizations are considering filing suit 
against UCSD for breach of contract. 

The clubs have distributed the UCSD 
Pascal package to their members at charges 
that ranged from $5 to $50. A UCSD Pascal 
user must now pay $250 to Softech, the new 
UCSD licensee, to obtain a copy of the 
package. 


UCSD PASCAL NEWSLETTER PUBLISHED 

The first issue of the UCSD Pascal 
Hobby Newsletter has appeared in print. 
It is 9 pages and is chock full of a lot 
of valuable informatin that users of UCSD 
Pascal will find invaluable. To get on 
the mailing list send $2 to: Jim McCord, 
330 Vereda, Leyenda, CA 93017. It's an 
absolute bargain. 


INTERNATIONAL PASCAL USER'S GROUP 

If you are into Pascal you will also 
want to join the "International Pascal 
User's Group (PUG). You will get an 
occassional newsletter that is a couple of 
hundred pages that is a compendium of all 
the news thats fit to print about Pascal 
from all over the world. It contains a 
lot of useful programs, too! To join, 
send $6 to PUG c/o Dick Shaw, Digital 
Equipment Corp., 5775 Peachtree Dunwoody 
Road, Atlanta, Ga. 30342. 


28000 S-100 CPU BOARDS TO BE OUT SOON 

Ithaca Intersystems, Ithaca, N.Y., 
(formerly Ithaca Audio) will soon 
introduce а 78000 CPU board for 5-100 
based systems. It will meet IEEE S-100 
Specs and contain an operating system in 
ROM. II will also have a version of their 
Pascal/Z software which can compile to 
either Z80 or Z8000 code. Therefore any 
present Z80 Pascal/Z software can be 


immediately recompiled to the new Z8000. 
II also plans to introduce a 78000 


assembler. 
National Multiplex Corp., 78 Oliver 


Ave, Edison, NJ 08817 has also disclosed 
that they plan to soon have available a 
28000 CPU card for S-100 systems. No 
further details are available at this 
time. 

Ithaca Intersystems has also 
disclosed that they have a prototype CPU 
card running using the new Motorola 68000, 
l6-bit, microprocessor IC. Since the 
68000 is not yet in production there are 
no immediate production plans. 


NEW S-100 8-BIT CPU CARDS TO BE AVAILABLE 

Godbout Electonics, Oakland Airport, 
CA, plans to produce an S-100 card with 
dual microprocessors. The card will 
contain both 8085A and 8088 
microprocessors. Both are Intel ICs. The 
8085A is the new improved version of the 
8080A and hence can execute all the 
present 8080 software. It will be clocked 
at 8MHz. The 8088 is the new Intel 16-bit 
micro with 8-bit I/O. Hence, it executes 
Intel's 8086 code. Thus a user can run 
standard CP/M written in 8080 code and 
software (e.g. 8086 BASIC) written in 8086 
code. The board will also contain a 
memory manager circuit to provide extended 
memory addressing. 

Tarbell Electronics, Carson, CA, will 
soon introduce a 780 CPU card for S-100 
systems. Don Tarbell said that he feels 
that the Z80, with its huge software base, 
will continue to be the dominant 
microprocessor for the next few years. 
The software base for 16-bit micros, he 
feels, will take at least a year or two to 
develop and hence he decided to introduce 
an 8-bit CPU card rather than a 16-bit CPU 
card. 


CP/M USER GROUP NEWS 

After over a year of no new disks, 
the CPM User Group will add eight new 
disks to the CPM User Group Software 
Library. The new disks were prepared by 
Bob Van Valzah of the Chicago Area 
Computer Hobbyist Exchange club (CACHE). 
This will bring the CP/M User Group 
library up to a total of 42 8-inch floppy 
disks. 

The CP/M User Group will distribute 
copies to clubs, as in the past, for 
copying. This software will be available 
for copying at the CP/M User Group meeting 
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at the Trenton Computer Festival, Trenton, 
NJ, April 19-20 (donation of $1/disk is 
asked for). 


CP/M SOFTWARE DIRECTORY AVAILABLE . 

The Small Systems Group, Box 5429, 
Santa Monica, CA 90405 has prepared a 
directory which lists "all" CP/M 
applications programs and classifies them 
by type with the name address of the 
vendor. To get a copy send $2 or include 
a large self-addressed stamped envelope 
with $1. 


XITAN/TDL NEWSLETTER PUBLISHED 

ТАТІ those TLD/Xitan system owners may 
no longer have TDL or Xitan for user 
support (what little there was of it) but 
they do have the XITAN NEWSLETTER published 
irregularly by: Dennis Thovson, 243 McMane 
Ave., Berkeley Heights NJ 07922. Send $1 
for a sample copy. 


MICROCOMPUTER SOFTWARE HONORED 

> For the first time a micro- 
computer software package has placed on 
the prestigous DATAMATION magazine 
"Honor Roll of Software Packages". 
Naturally it was CP/M, a product of 
Digital Research. Microsoft BASIC and 
UCSD PASCAL received honorable mention. 


SPECIALIZING IN 


IMSAI LIVES ANEW 

IMSAI, one of the pioneers in the 
microcomputer field is alive and function- 
ing as the the IMSAI COMPUTER Division of 
Fischer-Freitas Corp., San Leandro CA.  FFC 
was the outfit handling IMSAI's production 
and warranty service at the time that IMSAI 
went into bankruptcy, last year. Actually, 
the new IC division is staffed with all 
former IMSAI employees from the top down. 
The company is housed in two buildings 
totalling almost 12,000 sq. ft. and has 12 
employees. 

Fischer-Freitas purchased almost 90$ 
of the finished IMSAI stock and the rights 
to use the IMSAI and IMDOS trademarks. The 
IC division is manufacturing and selling 
the full line of IMSAI Hardware products. 
They are presently selling copies of the 
IMDOS operating system which was purchased 
from IMSAI. However, they are still 
negotiating with Digital Research regarding 
updating and marketing of IMDOS, in the 
future. Todd Fischer, FFC director, said 
that he expects to have this resolved 
shortly. In the meantime, IC is supporting 
all present registered owners of the IMDOS 
software and is providing updates as 
needed. 

Their address is: IMSAI COMPUTER Div, 
Fischer-Freitas Corp., 2175 Adams Ave, San 
Leandro CA. 
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QUALITY MICROCOMPUTER HARDWARE 


INDUSTRIAL e EDUCATIONAL е SMALL BUSINESS е PERSONAL 
BUILDING BLOCKS FOR MICROCOMPUTER SYSTEMS, CONTROL & TEST EQUIPMENT 


R? I/O 
2K ROM 
2K RAM 
3 Serial Ports 
1 Parallel Port 
WIRED: $295.00 


RACKMOUNT 
CARD CAGES 
KIT: $200.00 
WIRED: $250.00 


POWER SUPPLIES, CPU’s, MEMORY, OEM VARIATIONS 


ELECTRONIC CONTROL TECHNOLOGY (201) 686-8080 


5-100 MICROSYSTEMS 


16 К RAM 
| FULLY STATIC 
= MEMORY 
KIT: $279.00 
WIRED: $310.00 


TT-10 

TABLE TOP 
MAINFRAMES 
KIT: $340.00 
WIRED: $395.00 


763 RAMSEY AVE. 
HILLSIDE, N.J. 07205 


LETTERS 
TO THE EDITOR 


Sol: 

First issue looks great! Thanks. 
Hope it goes well. 

Jack Mathis 

Union Carbide 

Bound Brook NJ 


Dear Sol: 

I received the first issue of 
MICROSYSTEMS and was quite pleased with 
it. The magazine is still quite rough 
around the edges but shows a great deal of 
promise. 

There are quite a few topics I 
would like to see covered. One of these 
is graphics for the S100. I think this is 
its weakest point. Also, a comparison of 
the S-100 with others, such as the Apple 
and TRS-80. Other topics might be a 
troubleshooting column, diagnostics, 
getting started with Pascal, software 
other than BASIC and many others. 

Above all, keep it interesting. 


Thanks. 
Hector M. Smith 
Fountain Valley CA 
Dear Sirs: 


Please find enclosed my check for 
$14.00 for a two year subscription, as 
mentioned is the announcement in 
Infoworld. 

I look forward with enthusiasm to 
the first issue, and hope you receive the 
widespread support a publication with your 
aids and audience deserves. 

William T. Hole MD 


To Sol Libes & Russell Gorr: 

Bless уоџ!! 

The S-100 hobbyist has been 
increasingly taking a back seat in the 
micro world. The stores and mags are 
catering to either the small business 
market or the Pet/TRS-80/Apple crowd. I 
can understand it, because that's where 
the big bucks are. But that doesn't mean 
that I like it. Your magazine is a 
welcome move back toward the group that 
started it all. 

William C. Burns 

Palo Alto CA 


Dear Sol: 

Congratulations on the forthcoming 
S-100 MICROSYSTEMS. I am enclosing a 
check for a three year subscription. 1111 
await the first issue eagerly (but 
patiently). 

I first heard that you were 
thinking about an S-100 publication from 
John Dilks around Christmas and it had 
been on my mind to write my best wishes. 
However, my clairvoyent card is not 
working so my printer never followed 
through. Then I read of S-100 MICROSYSTEMS 
in Computer World. You have your public 
relations act together -- an area that ON 
LINE could have paid more attention to. 
John suggested also that you might be 
looking for people and that I might 
contact you in that regard. With studied 
sanity, I have avoided doing that -- I am 
currently enjoying retirement (to just a 
full time job). However, if I can be of 
help in a pinch, let me know. When I come 
out of retirement, I may try my hand at 
writing. If so, you'll be hearing from 
me. If you're looking for software 
reviewers, keep me in mind. 

Anyway, I hope that 5-100 
MICROSYSTEMS turns out to be as successful 
as I think it will. My one suggestion is 
to put heavy emphasis on CP/M as the 
‘software bus' that has made S-100 systems 
so usable. But I'm sure that you are 
ahead of me on that thinking. 

My very best wishes for success. 
And thanks for your help and support with 
ON-LINE. 

Dave Beetle 

Los Gatos CA 


Editor: Dave is the former 
publisher of ON-LINE, which until recently 
Sold to Computer Shopper, was the buy-line 
type publication for computer hobbyists. 
Dave did a great job with it. 


Dear Mr. Libes: 
As a long time reader I 


congratulate you on your new venture. 
With your extensive preparation and 
professional style I look forward to your 
great success. 

I ап writing to tell you of 
another CPU chip operating on the S-100 
bus (the 12th by my count). The Signetics 
8X300 is a very fast 8-bit machine 
currently offered as a slave processor for 
BASIC (FORTRAN and PASCAL coming). 

I'm not sure of the part number, 
but this board is also the first S-100 
Slave processor that I know of. I heard a 
rumor about a slave device using Western 
Digital's micro but have nothing concrete. 

The BASIC processor is called a 
DLX-10 and is marketed by Alaska Computer 
Systems, 12759 Poway Rd, Poway CA, 92064. 

I offer this information for your 


- CONTINUED ON PAGE 55 - 


8-100 MICROSYSTEMS 


NY > MDBS-Z80 version 


CP/M* VERSION 2 FOR TRS-80* MODEL I! NOW AVAILABLE 


DIGITAL RESEARCH 


[O CP/M FLOPPY DISKETTE OPERATING SYSTEM — 
@ Packages supplied on diskette complete with 8080 
assembler, text editor, 8080 debugger and various 
utilities plus full documentation. CP/M available con- 
ligured for most popular computer/disk systems in- 
cluding: North Star Single, Double or Quad density, 
Altair 8” disks, Helios II, Exidy Sorcerer, Vector М2, 
Heath H17t or H89t, TRS-80t, (СОМ 3712 and (сом 
Micro Disk plus many other configurations available 
off the shelf .... -$145/$25 
CP/M version 2 (not ail formats available immediately) 

PE аен te A UMEN Wa $170/$25 


-$300/$50 


Ё ower priees! 
Г] MAC — 8080 Macro Assembler. Full Inte! macro defi- 
nitions. Pseudo Ops include RPC, IAP, REPT. TITLE, 
PAGE, and MACLIB. 280 library included. Produces 


Intel absolute hex output plus symbols file for use by 
SID (see беюм) ......................... $85/$15 


ГІ SID — 8080 symbolic debugger. Full trace, pass count 
and break-point program testing system with back- 
trace and histogram utilities. When used with MAC, 
provides full symbolic display of memory: labels and 
equated values . pe 870/515 

17 2510 — As al UA vires 280 CPU $95/$25 

7 TEX — Text fori create paginated, page-num- 
bered and justified copy from source text files, direct- 
able to disk or printer | .........%70/515 


DESPOOL — Program to permit: Simultaneous printing 
of data from disk while user executes another pro- 
gram from the console қүн .$45/$5 


<<; бало prices are 
аскан! 


MICROSOFT 


11 BASIC-80 — Disk Extended BASIC, ANS! compatible 
0) with long variable names, WHILE/WEND, chaining, 
variable length file records : .$300/$25 


a BASIC COMPILER — Language compatible with 
%) BASIC-80 and 3-10 times faster execution. Produces 
@ standard Microsoft relocatable binary output, In- 
cludes Macro-80. Also linkable to FORTRAN-80 or 
COBOL-80 code modules ............... $350/$25 


Г] FORTRAN-80 — ANSI 66 (except for COMPLEX) plus 
many extensions. Includes relocatable object com- 
piler, linking loader, library with manager. Also in- 
cludes MACRO-80 (see below) ...........$400/$25 


O COBOL-80 — Level 1 ANSI '74 standard COBOL plus 
(O most of Level 2. Full sequential, relative, and in- 
@ dexed file support with variable file names. STRING, 
UNSTRING, COMPUTE, VARYING/UNTIL, EXTEND, 
CALL, COPY. SEARCH, 3-dimensional arrays. com- 
pound and abbreviated conditions, nested IF. Power- 
ful interactive screen-handling extensions. Includes 
compatible assembler, linking loader, and relocat- 
able шу manager as Sescribed, under MACRO-80 

. .$625/$25 

О MACRO. 80 — 8080! 280 Macro “Asembler Intel and 
© Zilog mnemonics supported. Relocatabie linkable 
(M output, Loader, Library Manager and Cross Refer- 
ence List utilities included ..$149/$15 


[7 XMACRO-86 — 8086 $såmbler. AI Macro and 
© utility E of СА 

slightly moditi 

sheet available»... 


80 package. Mnemonics 

| дем Companbaky data 

AR 5275/525 

O EDIT-80 — Very fast random access text editor for text 
© with or without line numbers. Global and intra-line 
commands supported: "e compete шу iun 
nm . .. 89/$15 


OMIM! 


MICRO FOCUS 


[C] STANDARD CIS COBOL — ANSI '74 COBOL stand- 
@ ard compiler fully validated by U.S. Navy tests to 
ANSI level 1. Supports many features to level 2 in- 
cluding dynamic loading of COBOL modules and a 
full ISAM file facility. Also, program segmentation, 
interactive debug and powerful interactive extensions 
10 support protected and unprotected CRT screen 
formatting from сово programs used with any 
dumb terminal -.5850/350 


[Л FORMS 2 — CRT screen 'editor. Output is ‘COBOL data | 
© descriptions for copying into CIS COBOL programs. 
Automatically creates a query and update program ER 
indexed files using CRT protected and unprotected JV 
Screen formats. No programming experience needed. 
Output program directly compiled by сіз COBOL 
(standard) .. -.5200/320 


О HDBS — Hierarchical Data Base System. CODASYL 
oriented with FILEs. SETs, RECORDs and ITEMs 
which are all user defined. ADD, DELETE, UPDATE. 
SEARCH, and TRAVERSE commands supported. SET 
ordering is sorted, FIFO, LIFO, next or prior. One to 
many set relationship supported. Read/Write protec- 
tion at the FILE level. Supports FILEs which extend 
over muitiple floppy or hard disk devices. 


LJ MDBS — Micro Data Base System. Full network data 
base with all features of HDBS plus multi-level Read/ 
Write protection for FILE, SET, RECORD and ITEM. 
Explicit representation of one to one, one to many. 
many to many, and many to one SET relationships. 
Supports multiple owner and multiple record types 
within SETs. HDBS files are fully compatible. 


T MDBS-DRS — MDBS with Dynamic Restructuring Sys- 
tem option which allows altering MDBS data bases 
when new ITEMs. RECORDs, or SETs are needed 
without changing existing data. 
HDBS-Z80 version . 


MDBS-DRS-Z80 version . 
8080 Version available at $75. extra. 


Z80 version requires 20K RAM. 8080 version requires 
24K RAM. (Memory requirements are additional to 
CP/M and application program.) 

When ordering HDBS or MDBS please specify if the 
version required is for 1) Microsoft L80 ie. FOR- 
TRAN-80, COBOL-80, BASIC COMPILER, 2) MBASIC 
4. XX, or 3) BASIC-80 5.0. 


Prices and specifications subject to change without notice. 


Prices reflect 
Wa tormi 


prices / 
EIDOS а Ри 


C KISS — Keyed Index Sequential Search. Offers com- 
@ plete Multi-Keyed Index Sequential and Direct Ac- 
cess file management. includes built-in utility func- 
tions for 16 or 32 bit arithmetic, string/integer conver- 
sion and string compare. Delivered as a relocatable 
linkable module in Microsoft format for use with 
FORTRAN-80 or COBOL-80, etc. $335/$23 


KBASIC — Microsoft Disk Extended BASIC with all 
KISS facilities, integrated by implementation of nine 
additional commands in language. Package includes 
KISS. REL as described above, anda sone mail 
list program 5/545 


eu 


— d 


2 SUPER-SORT I — Sort, merge, extract utility as abso- 
© lute executable program or linkable module in Micro- 
М4 Soft format. Sorts fixed or variable records with data 
~ in binary, BCD, Packed Decimal, EBCDIC, ASCII, 

floating, fixed point, exponential, field justified, etc. 

Even variable number of fields per record! анну 


Г] SUPER-SORT II — Above available as absolute 
OG gram only $175/525 


og SUREN SORT IAs 11 without SEUEGTEXCLUDE 


g WORD-STAR — Menu driven visual word E ERIS 
@ system for use with standard terminals. Text format- 
@ ling performed on screen. Facilities for text paginate, 
page number. justify, center and underscore. User 
can print one document while simultaneously editing 
a second. Edit facilities include global search and 
replace, Read/Write to other text files, block move, 
etc. Fequkes gor terminal with krage Å cursor 
positioning . % $445/$40 


Г] WORD-: STAR/MALL- MERGE — As above with option 
© for production mailing of personalized documents 
@ with mail list from Datastar ог NAD $575/$25 


2 WORD-STAR Customization Notes — For sophisticated 
users who do not have one of the many standard 
terminal or printer configurations in the distribution 
version of WORD-STAR NA/$100 


O WORD-MASTER Text Editor — In one mode has super- 
© set of CP/M's ED commands including global search- 
(€ ing and replacing, forwards and backwards in file in 
video mode, provides full screen editor for users with 
serial addressable-cursor terminal ........$125/$25 


Г] DATASTAR — Professional forms control entry and 
(0 display system for key-to-disk data capture. Menu 
då driven with built-in learning aids. Input field verifica- 
tion by length, mask, attribute (i.e. uppercase. lower- 
case, numeric, auto dup., etc.). Built-in arithmetic 
Capabilities using keyed data, constants and derived 
values. Visual feedback for ease of forms design. 
Files compatible with all CP/M-MP/M supported !ап- 
guages. Requires 32K CP/M ............ .$350/$35 


O CBASIC-2 Disk Extended BASIC — Non-interactive 
@ BASIC with pseudo-code compiler and runtime in- 
terpreter. Supports fuil file control, chaining, integer 
and extended precision variables, etc. ....$109/$15 


g PASCAL/M — Compiler generates P code from ex- 
tended language, implementation of standard PAS- 
CAL. Supports overlay structure through additional 
procedure calls and the SEGMENT procedure type. 
Provides convenient string handling capability with 
the added variable type STRING. Untyped files allow 
memory image 1/0. Requires 56K CP/M .. . .$350/$30 


11 PASCAL/Z — 280 native code PASCAL compiler. Pro- 

1) duces optimized, ROMable re-entrant code, All inter- 
facing to CP/M is through the support library. The 
package includes compiler, companion macro-as- 
sembler and source for the library. Requires 56K 
and 280 CPU. 
Version 2 includes ай! of Jensen/Wirth except variant 
гөсогф ........................ $275/$25 
Version 3 Upgrade with variant records and strings 
expected 3/80 $395/$25 


2 PASCAL/MT — Subset of standard PASCAL Gener- 
® ates ROMable 8080 machine code. Symbolic debug- 
we ger included. Supports interrupt procedures, CP/M 

file !/О and assembly language interface. Real vari- 

ables can be BCD, software floating point, or AMD 
еш hardware floating point. Version 3 includes 
Sets, Enumeration and Record data types, Manual 

UA explains BAS!C to PASCAL conversion. Source for 
aint гип time package requires MAC (See under Digi- 
a tal Research). Requires 32K . ..$250/$30 


STRUCTURED SYSTEMS GROUP 


П GENERAL LEDGER — Interactive and flexible system 
tt providing proof and report outputs. Customization of 
CDA created interactively. Multiple branch account- 
ing centers. Extensive checking performed at data 
entry for proof, COA correctness, etc. Journal entries 
may be batched prior to posting. Closing procedure 
automatically backs up input files. Now includes 
Statement of Changes in Financial Position. Requires 
СВАЅІС-2 .... $1250/$25 


ГІ ACCOUNTS RECEIVABLE — Open | item аы with 
tt output for internal aged reports and customer-ori- 
ented statement and billing purposes. On-Line En- 
quiry permits information for Customer Service and 
Credit departments. Interface to General Ledger pro- 
vided if both kne used. Requires CBASIC-2. 
4...... .$1250/$25 


Г] ACCOUNTS PAYABLE — Provides aged statements 
tt of accounts by vendor with check writing for selected 
invoices. Can be used alone or with Genera! Ledger 
and/or with NAD. Requires CBASIC-2 ....$1250/$25 


O PAYROLL — Flexible payroll system handles weekly, 
nthly payroll periods. 
idi 


tt bi-weekly, semi-monthly а! 
Tips, bonuses, re-i Ы 
vacation рау, 
the payroll г 
le SSG general 


ledger accounts. Requires CBASIC-2 .$1250/$25 


C INVENTORY CONTROL SYSTEM — Performs control 
11 functions of adding and depleting stock items, add- 
ing new items and deleting old items. Tracks quantity 
of items on hand, on order and back-ordered. Op- 
tional hard copy audit trail is available, Reports in- 
clude Master Item List, Stock Activity, Stock Valua- 
tion and Re-order List. Requires CBASIC-2 $1250/$25 


bution on 8" single density diskettes, 
" ted which requires additional diskettes. 
. тесе of $8. per additional disketle will be added 


Merve! Alone 
Г] ANALYST — Customized data entry and reporting sys- 
1t lem. User specifies up to 75 data items per record. 
Interactive data entry, retrieval, and update facility 
makes information management easy, Sophisticated 
report generator provides customized reports using 
selected records with multiple level break-points for 
summarization. Requires CBASIC-2 $250/$15 


C LETTERIGHT — Program to create, edit and type let- 
ters or other documents. Has facilities to enter, dis- 
play, delete and move text, with good video screen 
presentation. Designed to integrate with NAD for 
form letter mailings. Requires CBASIC-2 . .$200/$25 


ГІ NAD Name and Address selection system — interac- 
tive mail list creation and maintenance program with 
output as full reports with reference data or restricted 
information for mail labels. Transfer system for ex- 
traction and transfer of selected records to create 
new files. Requires CBASIC-2 ...... 5100/520 


7 QSORT - Fast sortimerge program for files with fixed 
record length, variable field length information. Up to 
five ascending or ascendi keys. Full ero ot 
input files created ... 5100/520 


GRAHAM-DORIAN SOFTWARE SYSTEMS 


Г] GENERAL LEDGER — An on-line system; no batch- 
© ing is required. Entries to other GRAHAM-DORIAN 
(M) accounting packages are automatically posted. User 
tt establishes customized C.O.A. Provides transaction 
register, record of journal entries, trial balances and 
monthly closings. Keeps 14 month history and pro- 
vides comparison of current year with previous year 
Requires CBASIC-2. Supplied in source . . .$995/$35 


ГІ ACCOUNTS PAYABLE — Maintains vendor list and 
© check register. Performs cash flow analysis, Flexible 
à — writes checks to specific vendor for certain in- 
(t Voices or can make partial payments. Automatically 
posts to GRAHAM-DORIAN general ledger or runs as 
stand alone system Requires CBASIC- 2 Supplied in 
source ..8995/535 


O ACCOUNTS RECEIVABLE — Creates trial balance re- 
© ports, prepares statements, ages accounts and rec- 
® ords invoices. Provides complete information describ- 
tt ing customer payment activity. Receipts can be 
posted to different ledger accounts Entries auto- 
matically update GRAHAM-DORIAN general ledger 
or runs as stand alone system, Requires CBASIC-2 
Supplied in source ..$995/$35 


M PAYROLL SYSTEM — Maintains employee master file. 
© Computes payroll withholding for FICA, Federal and 
М State taxes. Prints payroll register, checks, quarterly 
11 reports and W-2 forms. Can generate ad hoc reports 
and employee form letters with mail labels. Requires 
CBASIC-2. Supplied in source ..$590/$35 


L1 INVENTORY SYSTEM — Captures stock levels, costs, 
(© sources, sales, ages, turnover, markup, elc. Trans- 
“ action information may be entered for reporting by 
tt salesman, type of sale, date of sale, etc. Reports 
available both for accounting and decision making. 
Requires CBASIC-2. Supplied in source . . .$590/$35 


JOB COSTING — Designed for general contractors. 
To be used interactively with other GRAHAM-DORIAN 
accounting packages for tracking and analysing ex- 
penses. User establishes customized cost categories 
and job phases. Permits comparison of actual versus 
estimated costs. Automatically updates GRAHAM- 
DORIAN genera! ledger or runs as stand alone sys- 
tem. Requires CBASIC-2. Supplied in source 5995/535 


0 APARTMENT MANAGEMENT SYSTEM — Financial 
1) management system for receipts and security de- 
М. posits of apartment projects. Captures data on va- 
ff cancies, revenues, etc. for annual trend analysis. 
Daily report shows late rents, vacancy notices, va- 
cancies, income lost through vacancies, etc. Requires 
CBASIC-2. Supplied in source 5590/535 


CASH REGISTER — Maintains files on daily sales. 
Files data by sales person and item. Tracks sales, 
0% over-rings. refunds, payouts and total net deposits, 
tt Requires CBASIC-2. Supplied in source ...$590/$35 


aeo! 


Г] tiny C — Interactive interpretive system for teaching 
(X) Structured programming techniques. Manual includes 

full source listings ........-........ $75/$40 
ПІ BDS C COMPILER — Supports most major features of 
М language including Structures, Arrays, Pointers, re- 
@ cursive function evaluation, linking loader and li- 

brary. Floating point function library included, Lacks 
data initialization and static and register class speci- 


ww) паа Documentation includes “THE C PROGRAM- 


7 MING LANGUAGE" by Kernighan and Ritchie. 
-.$125/$15 


n WHITE MITHS c “COMPILER — The v ultimate in sys- 
© tems software tools. Produces faster code than Pas- 
бр cal with more extensive facilities. Conforms to the 
— full UNIX*** Version 7 C language, described by 
Kernighan and Ritchie, and makes available over 75 
functions for performing 1/О, string manipulation and 
storage allocation. Linkable to Microsoft REL files. 
Requires 60K CP/M 


M POLYVUE/80 — Full screen editor for any CRT with 
@ XY cursor positioning. Includes vertical and horizon- 
tal scrolling, interactive search and replace, auto- 
matic text wrap around for word processing, opera- 
tions for manipulating blocks of text, and compre- 
hensive 70 page manual ............... $135/$15 


ГІ POLYTEXT/80 — Text formatter for word processing 
(M) applications. Justifies and paginates source text files. 
Will generate form letters with custom fields and 
conditional processing. Support for Daisy Wheel 
printers includes variable е pitch. justification and mo- 
tion optimization 85/515 


O ALGOL-60— Powerful block-: «structured language com- 
piler featuring economical run time dynamic alloca- 
tion of memory. Very compact (24K total RAM) sys- 
tem implementing almost all Algo! 60 report features 
plus many powerful extensions including string han- 
Ay direct disk address І/О etc. Paures. 280 
CPI vs 99/$20 


Г) 280 DEVELOPMENT PACKAGE — = Consists ot: B disk 
@ file line editor, with global inter and intra-line facili- 
ties; (2) 280 relocating assembler, Zilog/Mostek mne- 
monics, conditional assembly and cross reference 
table capabilities; (3) linking loader producing abso- 
lute Intel hex disk file . 595/520 


“CP/M is а trademark of Digital Research. 
**280 is a trademark of Zilog, Inc. 
***UNIX is a trademark of Bell Laboratories. 
"WHATSIT? is a trademark of Computer Headware. 
“Electric Pencil is a trademark of Michael Shrayer Soft- 


ware. 
ЖТН5-80 is a trademark of Tandy Corp. 


TCP/M for Heath, TRS-B0 Model I and PolyMorphic 
8813 are modified and must use specially compiled 


| 


All Lifeboat programs require CP/M, unless otherwise stated. 


Dom 
^ Menon 

Manos Ane 

ZDT — Z80 Monitor Debugger to break and examine 
registers with standard Zilog/Mostek mnemonic dis- 
assembly displays. $35 when ordered with Z80 Devel- 
opment Package . :550/310 


П DISTEL — Disk based disassembler to Intel 8080 or 
TOL/Xitan 280 source code. listing and cross refer- 
ence files, Intel or TDL/Xitan pasugo ops optional. 
Runs on 8080 ... $65/$10 


0 DISILOG- As DISTEL to > ZiogMosek | “mnemonic 
@ files. Runs оп 280 only ..$65/$10 


ХАЅМ-68 — Non-macro cross-assembler with nested 
conditionals and full range of pseudo operations. As 
sembles from standard Motorola MC6800 mnemonics 
to Intel hex ; 


[2 ХАБМ-65 — Ав XASM-68 for MOS: Technology 
6500 series mnemonics 


Г] TEXTWRITER III — Text formatter to "кешу апа pagi- 
@ nate letters and other documents. Special features 
incicde insertion of text during execution from other 
disk files or console. permitting recipe documents 
to be created from linked fragments on other files. 
Has facilities for sorted index, table of contents and 
footnote insertions. Ideal for contracts, manuals, etc. 
Now compatible with Electric Pencil** prepared 
files .. .$125/$20 


Г) POSTMASTER — А comprehensive package for mail 
G list maintenance that is completely menu driven. 
Features include keyed record extraction and label 
production. A form letter program is included which 


er 


MOS 
00/$25 


NO” provides neat letters on single sheet or continu- 
ous forms. Compatible with NAD files. Requires 
CBASIC-2 ..$150/$15 


WHATSIT?* Interactive data-base system using 
associative tags to retrieve information by subject. 
Hashing and random access used for fast response. 
Requires CBASIC-2 å .$125/$25 


T XYBASIC Interactive Process Control BASIC — Full 
disk BASIC features plus unique commands to han- 
dle bytes, rotate and shift, and to test and set bits. 
Available in Integer, Extended and ROMabie versions. 
Integer Disk or Integer ROMable . ...$295/$25 
Extended Disk or Extended ROMabie . .$395/$25 


ГІ SMAL/80 Structured Macro Assembled Language — 
Package of powerful general purpose text macro 
processor and SMAL structured мок compiler. 
SMAL is an assembler language with IF-THEN-ELSE, 
LOOP-REPEAT-WHILE, DO-END, BEGIN-END con- 
Structs 222....875/515 
7 SELECTOR lII-C2 — Data Base Processor to create 

1f and maintain multi Key data bases. Prints formatted 

(& sorted reports with numerical summaries or mailing 

including 


labels. Comes with sample applications, 
ute | Sales Activity, Inventory, Payables, Receivables, 


„ Check Register, and Client/Patient Appointments, etc. 
45,” Requires CBASIC-2. Supplied in source .. .$295/$20 


ГІ GLECTOR — General Ledger option to SELECTOR 
Ш-С2. Interactive system provides for customized 
СОА. Unique chart of tri ол types insure proper 
double entry nerates balance sheets, 
P&L statement 5. Two year record allows 
for statement дез in financial position report. 
Supplied in source. Requires SELECTOR 111-С2, 
CBASIC-2 and 52K system . ss $250/$25 


D CPM/374X — Has full range of functions to create or 
re-name an IBM 3741 volume, display directory infor- 
mation and edit the data set contents. Provides full 
file transfer facilities m 3741 volume data sets 
and CP/M files . 5 -.8195/510 


O BASIC UTILITY DISK — Consists 1) CRUNCH-14 
Мм — Compacting utility to reduce the size and increase 
the speed of programs in Microsoft BASIC and TRS- 
80 BASIC. (2) DPFUN — Double precision subroutines 
for computing nineteen transcendental functions in- 
cluding square root, natural log, log base 10, sin, arc 
sin, hyperbolic sin, hyperbolic arc sin, elc. Furnished 
in source сп diskette and documentation ...$50/$35 


[0 THE STRING ВІТ — FORTRAN character string han- 
м cling. Routines to find, fill, pack, move, separate, 
concatenate and compare character strings. This 
package completely eliminates the problems asso- 
ciated with character string handling in FORTRAN. 
Supplied with source . - $45/$15 


O BSTAM — Utility to link one computer to another also 
equipped with. gee Hows file transfers at full 


data speed (fio с with CRC block 
control check 20 detection and 
automatic retry. Full wildcard 


gréi 
expansions to sen 0 baud with wire. 
300 baud with phone Both ends need 
one. Standard and@versii ‘an talk to one another. 


Compatible TRSDOS version also available $150/$5 


kkk ЖЖ Ж 
SUNDRIES & NOTIONS 


ГІ HEAD CLEANING DISKETTE—CIeans the drive Read/ 
Write head in 30 seconds. Diskette absorbs loose 
oxide particles, fingerprints, and other foreign parti- 
cles that might hinder the performance of the drive 
head. Lasts at least 3 months with daily use. Specify 
5" or 8" . $20 ea./$45 for 3 


[2 FLIPPY DISK KIT — Тетешїә. and instructions to 
modify single sided 514” diskettes for use of second 
side in single sided drives $12.50 


Г] FLOPPY SAVER Protection for center holes of 574" 
floppy disks. Only 1 needed per diskette. Kit contains 
centering post, pressure tool. tough 7-mil mylar rein- 
forcing rings. Installation tools and 1 rings for het 


ettes 
Re-orders of tings only -$7.95 


C PASCAL USER MANUAL AND REPORT - By Jensen 
and Wirth, The standard textbook on the language. 
Recommended for use by Pascal/Z, Pascal/M and 
Pascal/MT. ц88га ........................›. $8 


Г] THE C PROGRAMMING LANGUAGE - By Kernighan 
and Rilchie. The standard textbook on the language. 
Recommended for use by BDS C, dud C, and White- 
smiths C users ..$12 


y 


systems and formats. 
eg North Star single. 
double or quad density. 
IBM single or 2D 256 
Altar. Helios 1 
Micropolis Mod I or il 
5747 solt sector (Micro 
(СОМ SD Systems 
Dynabyte). etc 


Orders must specily disk 


Pnces F OB New York 
Shipping, handling and 
COD charges extra 


law Manual cost applicable 
against price of 
subsequent software 
purchase 
The sale o! each 
propretary software 
package conveys a 
license for use on опе 


versions of system and applications software. 

ttRecommended system configuration consists of 48K. 
CP/M, 2 full size disk drives, 24 x 80 CRT and 132 
column printer. 


Shoppi у 
List No10 · аю 


Software for most popular 8080/280 computer disk systems including 
NORTH STAR, iCOM, MICROPOLIS, DYNABYTE DB8/2 & DB8/4, EXIDY 


ng. Dirt 


Modified version available for use with CP/M as im- 
plemented on Heath and TRS-80 Model ! computers. 


(ÜUser license agreement for this product must be 
Signed and returned to Lifeboat Associates before 
shipment may be made. 


(0 This product Includes/eXcludes the language manual 


SORCERER, SD SYSTEMS, ALTAIR, VECTOR MZ, MECA, 8" IBM, тайшы end Nets above WE oA А, 
HEATH H17 & H89, HELIOS, IMSAI VDP42 & 44, REX, NYLAC, mca Lifeboat Associates 
INTERTEC, VISTA V80 and V200, TRS-80 MODEL! and MODEL II, ) 


2248 Broadway, N.Y., М.Ү. 10024 


ALTOS, OHIO SCIENTIFIC, DIGI-LOG and IMS 5000 formats. (212) 580-0082 Telex: 22050: 


The Software Supermarket is a trademark of Lifeboat Associates 


NORTH Æ STAR 
TOPICS 


by 


Randy Reitz 
26 Maple St. 
Chatham Township, N.J. 07928 


The first of a regular column by and for users of North Star Disk Systems. 


Welcome to what I hope will be a 
regular feature in S-100 MICROSYSTEMS. 
With some support from North Star users I 
hope to bring you some interesting topics 
each month. Usually I will draw from my 
experience with the North Star MDS I 
Started using in July '78, but I will 
welcome any contributions. 

Some topics I can write about include 
Tiny-c, CP/M, several N* utility programs 
such as MARYELLN and finally N*'s version 
of UCSD Pascal. I will write about these 
topics as long as I have something to 
share. Of course I would like to hear 
about what is interesting to other N* 
users so let me hear from you. 

I will get started this month with my 
recent experience with N*DOS release 5.15. 
I picked up 5.1S (the "S" is for single 
density) in October 1979, but I didn't 
find the time to install it until 
recently. I also picked up a copy of the 
new SOFT-DOC System Software Manual that 
N* sells for $7.50. So far I can say that 
the Manual is well worth it, but 5.1S is 
not much different from release 4. Of 
course if you are lucky enough to have a 
double density MDS, you will need release 
5 to get on the air. Double density is no 
doubt the reason for release 5. 

So far, the major difference I have 
found in using 5.15 is the DOS is 
generally more "chatty" with you. Since 
the four DOS commands that require a 
buffer to operate were "kicked out" of 
release 5 (these commands are CF, CD, DT & 
CO - which was "kicked out" in release 4), 
I suppose N* used the extra space to put 
in more text to print out. For example, 
the hard disk error message is a bit more 
civilized (the type of error is displayed 
now) and when the system comes up a sign-on 
message is printed. This sign-on message 
caused me some trouble since I use the 
"auto" command feature at bootstrap time 


10 


doubled. 

As I was preparing this patch, I 
noticed that N* fixed a problem with the 
directory list routine. The check for the 
number of lines to print before pausing 
for the RETURN key has been restrictd to 
the console (device 0) only. In release 
4, the pause would occur no matter what 
output device was selected for the 
directory listing. 


This patch also goes in the directory 
printing routine at the point where one 
directory entry has finished printing and 
the directory maintenance routine is about 
to be entered to check for more entries to 
print: 


ORG 2597H 
CALLPRTBLK ;blank after type 


MOV A,M ;get file type 
INX H ;start of usr area 
CPL 1 ;is file type ABS? 
JNZ BLK8 ;8 blks, CRLF? 
DS 7 ¿skip 7 bytes 


JMP CKCRLF ;4 blks, CRLF? 
RETURN DS 1 ;is needed-return here 
; from patch 


The remainder of the code can go in 
any convenient spot such as DOS I/O area. 


*PATCH FOR DOUBLE COLUMN FILE DIR LISTING 
BLK4 MVI С,4 ;initialize counter 
CALL PRTBLK  ;output one blank 


DCR C 
JNZ BLK4+2  ;output 4 blanks 
RET 


BLK8 CALL BLK4 
CKCRLF CALL BLK4 


;output 8 blanks 
;after each user area 


LDA  DIRTG ;check column toggle 
XRI 1 ;to see if CRLF is 
STA DIRTG ;needed 


CZ DOSCRLF ;do CRLF 
JMP RETURN  ;and return from PATCH 


$-100 MICROSYSTEMS 


NEW! TPM* for TRS-80 Model Il 
NEW! System/6 Package 


Computer Design Labs 


280 Disk Software 


We have acquired the rights to all TOL software (& hardware). TDL software has long had the reputation of being the best in the 
industry. Computer Design Labs will continue to maintain, evolve and add to this superior line of quality software. 
— Carl Galletti and Roger Amidon, owners. 


Software with Manual/Manual Alone 


All of the software below is available on any of the 
following media for operation with a Z80 CPU using 
the CP/M* or similar type disk operating system 
(such as our own ТРМ“). 


for TRS-80* CP/M (Model I or II) 

for 8” CP/M (soft sectored single density) 
for 5'4" CP/M (soft sectored single density) 
for 514" North Star CP/M (single density) 
for 5/4” North Star CP/M (double density) 


BASIC 1 

A powerful and fast Z80 Basic interpreter with EDIT, 
RENUMBER, TRACE, PRINT USING, assembly language 
subroutine CALL, LOADGO for "chaining", COPY to 
move text, EXCHANGE, KILL, LINE INPUT, error inter- 
cept, sequential file handling in both ASCII and binary 
formats, and much, much more. It runs ina little over 12 
K. An excellent choice for games since the precision 
was limited to 7 digits in order to make it one of the 
fastest around. $49.95/$15. 


BASIC П 
Basic | but with 12 digit precision to make its power 
available to the business world with only a slight sacrifice 
in speed. Still runs faster than most other Basics (even 
those with much less precision). $99.95/$15. 


BUSINESS BASIC 

The most powerful Basic for business applications. It 
adds to Basic || with random or sequential disk files in 
either fixed or variable record lengths, simultaneous 
access to multiple disk files, PRIVACY command to 
prohibit user access to source code, global editing, 
added math functions, and disk file maintenance capa- 
bility without leaving Basic (list, rename, or delete). 
$179.95/$25. 


ZEDIT 
A character oriented text editor with 26 commands 
and "macro" capability for stringing multiple commands 
together. Included are a complete array of character 
move, add, delete, and display function. $49.95./$15. 


ZTEL 

Z80 Text Editing Language - Not just a text editor. 
Actually a language which allows you to edit text and 
also write, save, and recall programs which manipulate 
text. Commandsinclude conditional branching, subrou- 
tine calls, iteration, block move, expression evaluation, 
and much more. Contains 36 value registers and 10 text 
registers. Be creative! Manipulate text with commands 
you write using Ztel. $79.95/$25. 


TOP 
A Z80 Text Output Processor which will do text 
formatting for manuals, documents, and other word 
processing jobs. Works with any text editor. Does 
justification, page numbering and headings, spacing, 
centering, and much more! $79.95/$25. 


MACRO I 

A macro assembler which will generate relocateable 
or absolute code for the 8080 or Z80 using standard 
Intel mnemonics plus TDL/Z80 extensions. Functions 
include 14 conditionals, 16 listing controls, 54 pseudo- 
ops, 11 arithmetic/logical operations, local and global 
symbols, chaining files, linking capability with optional 
linker, and recursive/reiterative macros. This assembler 
is so powerful you'll think it is doing all the work for you. It 
actually makes assembly language programming much 
less of an effort and more creative. $79.95/$20. 


MACRO II 
Expands upon Macro I's linking capability (which is 
useful but somewhat limited) thereby being able to take 
full advantage of the optional Linker. Also a time and 
date function has been added and the listing capability 
improved. $99.95/$25. 


LINKER 

How many times have you written the same subroutine 
in each new program? Top notch professional pro- 
grammers compile a library of these subroutines and 
use a Linker to tie them together at assembly time. 
Development time is thus drastically reduced and 
becomes comparable to writing in a high level language 
but with all the speed of assembly language. So, get the 
new CDL Linker and start writing programs in a fraction 
of the time it took before. Linker is compatible with 
Масго!& 1 as well as TDL/Xitan assemblers version 2.0 
or later. $79.95/$20. 


DEBUG | 

Many programmers give up on writing in assembly 
language even though they know their programs would 
be faster and more powerful. To them assembly language 
seems difficult to understand and follow, as well as 
being a nightmare to debug. Well, not with proper tools 
like Debug I. With Debug I you can easily follow the flow 
of any Z80 or 8080 program. Trace the program one 
step at a time or 10 steps or whatever you like. At each 
step you will be able to see the instruction executed and 
what it did. If desired, modifications can then be made 
before continuing. It's all under your control. You can 
even skip displaying a subroutine call and up to seven 
breakpoints can be set during execution. Use of Debug I 
can pay foritself many times over by saving you valuable 
debugging time. $79.95/$20. 


DEBUG Ii 

This is an expanded debugger which has all of the 
features of Debug I plus many more. You can “trap” (i.e. 
trace a program until a set of register, flag, and/or 
memory conditions occur). Also, instructions may be 
entered and executed immediately. This makes it easy 
to learn new instructions by examining registers/memory 
before and after. And a RADIX function allows changing 
between ASCII, binary, decimal, hex, octal, signed 
decimal, or split octal. All these features and more add 
up to give you a very powerful development tool. Both 
Debug! and | must гип on а 280 but will debug both 280 
and 8080 code. $99.95/$20. 


ZAPPLE 
A Z80 executive and debug monitor. Capable of 
search, ASCII put and display, read and write to 1/0 
ports, hex math, breakpoint, execute, move, fill, display, 
read and write in Intel or binary format tape, and more! 
on disk $34.95/$15. 


APPLE 
8080 version of Zapple 534.95/515. 


NEW! TPM nowavailable for TRS-80 Model 


ИҢ 
ТРМ* 

A NEW Z80 disk operation system! This is not CP/M*. 
It's better! You can still run any program which runs with 
CP/M* but unlike CP/M* this operating system was 
written specifically for the Z80* and takes full advantage 
of its extra powerful instruction set. In other words its 
not warmed over 8080 code! Available for TRS-80* 
(Model I or II). Tarbell, Xitan DDDC, SD Sales "VERSA- 
FLOPPY”, North Star (SD&DD), and Digital (Micro) 
Systems. $79.95/$25. 


SYSTEM MONITOR BOARD (SMB II) 
Acomplete 1/0 boardforS-100 systems. 2 serial ports, 
2 parallel ports, 1200/2400 baud cassette tape inter- 


face, sockets for 2K of RAM, 3-2708/2716 EPROM's or 


ROM, jump on reset circuitry. Bare board $49.95/$20. 


ROM FOR SMB ІІ 
2KX8 masked ROM of Zapple monitor. Includes source 
listing $34.95/$15. 


PAYROLL (source code only) 
The Osborne package. Requires C Basic 2. 
5" disks $124.95 (manual not included) 
8" disks $ 99.95 (manual not included) 
Manual $20.00 


ACCOUNTS PAYABLE/RECEIVABLE 
(source code only) 
By Osborne, Requires C Basic 2 
5" disks $124.95 (manual not included) 
8" $99.95 (manual not included) 
Manual $20.00 


GENERAL LEDGER (source code only) 
By Osborne. Requires C Basic 2 
5" disks $99.95 (manual not included) 
8" disks $99.95 (manual not included) 
Manual $20.00 


C BASIC 2 
Required for Osborne software. $99.95/$20. 


SYSTEM/6 
TPM with utilities, Basic | interpreter, Basic E compiler, 
Macro ! assembler, Debug | debugger, and ZEDIT text 
editor. 
Above purchased separately costs $339.75 
Special introductory offer. Only $179.75 with coupon!! 


$160.00 
EEE TE ERES 


ORDERING INFORMATION 
Visa, Master Charge and C.O.D. O.K. To order call or 


write with the following information. << | 
. Name of Product (e.g. Macro 1) == => 
. Media (e.g. 8" CP/M) - . 

. Price and method of payment (e.g. C.O.D.) include 
credit card info. if applicable. 

Name, Address and Phone number. 

. For TPM orders only: Indicate if for TRS 80, Tarbell, 
Xitan DDDC, SD Sales (5'4" or 8"). ІСОМ (5%" or 
8"), North Star (single or double density) or Digital 
(Micro) Systems. 

6. N.J. residents add 5% sales tax. 


na won 


Manual cost applicable against price of subsequent 
software purchase in any item except for the Osborne 
software. 


For information and tech queries call 
609-599-2146 


For phone orders ONLY call toll free 


1-800-327-9191 
Ext. 676 


(Except Florida) 
OEMS 
Many CDL products are available for licensing to 
OEMs. Write to Carl Galletti with your requirements. 


* Z80 is a trademark of Zilog 

* TRS-80 is a trademark for Radio Shack 

* TPM is a trademark of Computer Design Labs. It is not 
CP/M* 

* CP/M is a trademark of Digital Research 

Prices and specifications subject to change without 

notice. 


DEALER INQUIRIES INVITED. 


COMPUTER 
DESIGN 
LABS 


342 Columbus Avenue 
Trenton, N.J. 08629 


*CHECK IF A CRLF IS NEEDED AT END OF DIR 
RSTDIR POP H ;get adr of dir toggle 


PUSH PSW ҙБауе flags 

XRA A ;prepare to zap toggle 
CMP M ;check first if zero 
MOV M,A ;see if another CRLF 


CNZ  DOSCRLF ;is needed 
POP PSW ;restore flags 
LHLD ADRAVAL ;set HL->next disk adr 


This patch makes three references to 
N*DOS routines: 


PRTBLK EQU 26B4H ;print one blank 
DOSCRLF EQU 26СІН  ;output CR and LF 
ADRAVAL EQU 28A2H  ;next avail disk adr 


Also, the byte containing the number 
of console lines to display should be 
to load my spooling programs, a part of 
which is the console output driver. 
Needless to say that the console output 
drive had better be in memory to receive 
the N*DOS greetings. This "feature" of 
release 5 caused much shifting of my I/O 
drivers. 

My major disappointment with release 
5 is that N* did not take the opportunity 
to enhance the "LI" directory listing with 
double column output. The "PRESS RETURN 
TO CONTINUE" message for CRT consoles is 
nice, but I think a double column 
directory listing is better. I have had a 
double column directory patch for some 
time so this "feature" is not new for 
N*DOS (for example, Dr. Dobb's Journal had 
a letter for such a patch in the October, 
'79 issue); but I have never been 
completely satisfied with their 
performance. For example, the Dr. Dobb's 
patch will output spaces after each 
directory entry so that two entries will 
fit exactly on one line of your CRT. The 
CRT terminal is expected to provide an 
automatic CR and LF. Hence there is a 
version for 64 and 80 column CRTs. The 
double column patch I was using relied 
upon the fact that the directory 
maintenance routine stores the numbr of 
the directory entry being processed in the 
B-reg while the entry is being printed. 
My trick was to check for the B-reg to be 
odd before doing the CRLF. This worked 
except when the directory contained blank 
entries. 

Here is the ultimate, perfect and 
completely fulfilling double column 
directory listing patch for version 5.15 
(I will be happy to help figure out 
addresses for other versions). The only 
way to do this right is to allocate a flag 
to indicate which side of the CRT (or hard 
copy device) the directory entry is 
currently being displayed. The patch 
requires 43 bytes which can usually be 
found in the DOS I/O area. Here is the 
patch that goes at the end of the 
directory maintenance routine just before 
returning to DOS or the program calling 
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entry DLOOK: 


ORG 243CH ;Check if a CRLF 


CALL RSTDIR ; is required. 
DIRTG DB 0 
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CLUB DIRECTORY 


S-100 MICROSYSTEMS will list in each 
issue, a directory of clubs with the S- 
100, CP/M, PASCAL, etc User Groups. If 
you are a member of such a club, and it is 
not listed here, then have your club 
representative register your group with 
us. In return we will send a free one- 
year subscription for your club's library. 


Amateur Computer Group of New Jersey, Inc. 
8080, 280, CP/M, N*, Pascal User Groups 
1776 Raritan Rd, Scotch Plains, NJ 07076 
Contact: Sol Libes 

Tel: (201) 277-2063 


New York Amateur Computer Club, Inc. 

S-100, N*, CP/M User Groups 

Box 106, Church St. Station, NYC, NY 

01007 

Contact: (N*) Michael Dubno (212) 549-7359 
(8-100) Brian Glasser (212) 674-1185 


Northwest computer Society 

CP/M, Pascal, User Groups 

Box 4193, S IE Wa 98104 

Contact: (N*) Roy Gillette (206) 523-2866 
Recorded Message (206) 284-6109 


New England Computer Society 

CP/M, N* User Groups 

Box 198, Bedford, MA 01730 
Contact: Dave Mitton (617) 493-3154 


Long Island Computer Association 

8080 User Group — 

3788 Windsor Drive 

Bethpage NY 11714 

Contact: 8080 UG Agugie Schwab (516)374- 
4168 


Rochester Area Microcomputer Society 

North Star User Group 

Box 90808 

Rochester NY 14609 

Contact: N* UG Erwin Rahn 473-3184 
Bob Konally 671-4131 


- CONTINUED ON PAGE 55 - 
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Notice 
Subscription Rates to Increase 


Effective May lst, the subscription 
rates of S-100 MICROSYSTEMS will be 
increased. The low introductory price, 
which represented a loss to us, will 
end. The subscription cost will then be 
as follows: 


One Year (six issues) $ 9.50 
Two Years (twelve issues) 17.00 
Three Years (eighteen issues) 23.50 
Canada: add $3.00 per year Paid 
Far East, Australia, etc: add in 

$14.00 per year * U.S. 


OtherForeign:add $12.00 per year* Funds 


WOULD YOU LIKE TO BE 


S-100 MICROSYSTEMS is the 5-100 
magazine. In fact, there is no other 
competition. Our current dealers report 
that having S-100 MICROSYSTEMS magazine 
available for sale in their stores helps 
sell S-100 based computer systems. 

We require a minimum order of only 10 
copies per month and offer standard trade 
discounts. Further, we will take back any 
unsold saleable copies within six months. 

For more information call or write: 

5-100 MICROSYSTEMS 
Box 1192 
Mountainside NJ 07092 
201-277-2063 


* sent air mail. 


Sound Effects... Sound Effects... !!! 
© NODEMACES ` e © NOPEMAKR п ** 
S-100 bus Apple Ilim bus 


ADD “SPACESHIP” SOUNDS, PHASERS, 

GUNSHOTS, TRAINS, MUSIC, SIRENS, ЕТС.! 

UNDER SOFTWARE GONTROL!!! 

• Soundboards Use GI AY 3-8910 .С:' to Generate 
Programmable Sound Effects. қ | 

• On Board Audio Amp. Breadboard Area With +5 & GND. 

4 Noise Sources * Envelope Generátors s. [JO Ports 


м 
UV ҥе ішін 
6809 SINGLE-BOARD COMPUTER 
$-100 bus 


* IEEE $-100 Proposed Standard 
• 2K ВАМ 
> 4К/ВК/16К ROM 
11% PIA, ACIA Ports 
è adsMON; 6809 Monitor Available | 
P.C. Board & Manual Presently Availablé | 


PCB & Manual: *39.85 (NM); * "34.95 (NM II) 
HIL ATTENTION APPLE II USERS! HH! 


Add 506 postage & handling per item. Assermbled and Tested NM IL Units Now Ayaitablell? 
Ill. residents add sales tax. Call or Write for Details. ads 
(312) 530-8992 


Ackerman Digital Systems, Inc., 110 М. York Road, Suite 208, Elmhurst, Illinois 60126 


~ ALL PG BOARDS FROM ADS ARE SOLDER 
MASKED, WITH GOLD CONTACTS, & PARTS 
LAYOUT SILK SCREENED ON BOARD. 


S-100 MICROSYSTEMS 13 


LINEAR PROGRAMMING 
TECHNIQUES IN PASCAL 


by 


W. M. Yarnall 
19 Angus Lane 
Warren, N.J. 07060 


This is the first part of a two-part article on Linear Programming in PASCAL. 
Linear Programming provides a means for solving problems with numerous constraints 
that often make solutions non-obvious. 


INTRODUCTION 

Linear Programming is defined as a 
technique for finding the optimum solution 
to a set of linear equations which are 
subject to constraints. It was first 
devised in 1947 under sponsorship of the 
U.S. Air Force and used to solve many 
problems in military planning. 

Since that time, the main 
applications have been in the area of 
industrial planning. 

Several algorithms have been 
developed for the solution of Linear 
Programming problems. Probably the most 
successful for general problems is the 
Revised Simplex method, first developed by 
George B. Dantzig (Stanford). The first 
successful solution of a Linear 
Programming problem on a high-speed 
electronic computer occured in January, 
1962, on the National Bureau of Standards 
SEAC machine. Since that time, the 
simplex algorithm and its variations have 
been coded for most of the large general 
purpose computers in the US and England. 


APPLICATIONS 

Linear Programming problems are 
concerned with the efficient use or 
allocations of limited resources to meet 
desired objectives. There are four 
generally recognized classes of such 
problems: 
1. The Product Mix Problems. 

A typical example is that of the 
manufacturer who must determine what 
combination of his available resource 
will enable him to manufacture his 
products in a way which not only 
satisfies his production schedule but 
also maximizes his profit. 


2. The Transportation Problem. 
This is the example of a situation 
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where material (of possibly different 


types) must be shipped from several 
Sources to several destinations; the 
different routes from each of the 


Sources to each of the destinations 

have differing costs. The problem is 

to satisfy the demands at each 

destination from the available stocks 

at a minimum cost for transportation. 
3. The Diet Problem. 

This problem is also called by Lowe 
the "activity analysis" problem. Here 
we are given the nutritional content 
of a variety of foods (and their 
costs). We must find the mix which 
will satisfy the minimum daily 
requirement for each of the nutrients 
at a minimum cost. 

4. Gaming Problems. 

This class of problems is one in 
which it is desired to maximize the 
payoff of a game (or contest) in which 
the variables are the strategies each 
player may use. Only the subclass of 
"Zero-Sum Two-Person" games have been 
Solved so far. 


Each of these problems have in common 
that: 

* A multiplicity of choice exists in 
the solution, 

* The choices 
constraints, and 

* Some objective must be optimized 
(maximized or minimized). 


are bounded by 


In this two-part article, an example 
of each of the classes will be taken up, 
and the steps in the formulation will be 
shown. The wide range of problems to 
which this technique can be applied is 
suggested by the recommended reading. 


$-100 MICROSYSTEMS 


THE PROGRAM 

The Revised Simplex Algorithm has 
been coded for use on small computers, and 
is shown in Listing 1. It has been 
implemented in UCSD Pascal, a language 
chosen for its wide acceptance and 
installation on small systems. It 
requires, as a minimum, 48K of RAM and a 
single floppy drive. The author uses a 
dual single-density North Star drive 
System with the North Star implementation 
of the UCSD Pascal. 

First, the program is keyed in, using 
the Pascal editor. Then the program is 
compiled and linked to the library 
functions needed. 

Before the program can be run, a data 
file must be build; part 2 of this article 
will provide a data file editor program 
(also in UCSD Pascal), and several example 
problems). 


An Example Problem 

In order to solve a problem using 
Linear Programming techniques, it must 
first be stated in a "standard form". It 
usually takes some analysis to get a 
problem into this standard form (see the 
bibliography for suggested reading in this 
area). Our example will be presented in 
the standard form. 


Problem: 
Maximize 


X1+2X2+3X3-X4 (1) 


subject to 


X1+2X +3X3 = 15 
2X1+ X2+5X3 = 20 (2) 
Х1+2Х2+ X3+ X4 = 10 

Here, equation (1) states an 


objective to be maximized (maybe a 
profit?), and equations (2) represent the 
constraints. 

Since the program of Listing 1 is 
coded to minimize the objective function, 
we convert equation (1) to: 


ANALOG Boards 
A/D 16 Channel, $495. 
12 Bit, High Speed 


D/A 4 Channel, $395. 
12 Bit, High Speed 


8086 Boards 

CPU with $650. 
Vectored Interrupts 
PROM-I/O $495. 


RAM $395. 
8K x 16/16K x 8 
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minimize 
-X1-2X5-3X4*X, (1a) 


subject to the constraints of equation 
(2). 


This demonstrates that any objective 
function can be converted from a minimum 
to a maximum (and vice versa) by a simple 
operation. Our standard form is the 
minimizing function (1a). 

The representation of equations (2) 
used in the program is the matrix form. 
That is, the coefficients of the X's are 
kept in a two-dimensional array, called 
"ABAR" in the program. When this data is 


fed into the program (via reading a data 
file), the ABAR matrix will contain: 


20 
ABAR = 2.0 
1.0 


It can be seen that a column in this 
array corresponds to the coefficient of a 
variable (col 1 = Xi, etc), and the row 
corresponds to a constraint (there are 3). 

The right-hand-side (RHS) of equation 
(2) is kept in an array, as are the 
coefficients of the objective vector. 

After the data file is read in, the 
program echoes it out, and goes through 
several iterations, until it finds the 
required solution. 

Listing 2 shows the data file, listed 
by the "LIST" function of the file editor. 
Each record (there are 22) is shown with a 
record sequence number. The file uses 
record variants; the first data is the 
"TAG". Tag 0 specifies 

* an alphanumeric name for the 
problem (TEST), 

* the number of rows (3) in the ABAR 

matrix, and 

* the number of columns (4) 

(variables) in the problem. 

This record must be the first in the 
file, since the use of the arrays is 
controlled by its data. 


S-100 Boards 


Video and/or Analog 
Data Acquisition 
Microcomputer Systems 


VIDEO _ 
DIGITIZATION 


Real Time Video $850. 


Digitizer and Display 
Computer Portrait 


System $4950. 


AR 


ENG. 
The High Performance S-100 People 
TECMAR, INC. 


23414 Greenlawn е Cleveland, OH 44122 
(216) 382-7599 
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Record 1 has a tag of 1. It is 
optional and provides up to 64 characters 
to define the problem to which this data 
applies. 

Records 2 through 20 can be in any 
order. It is best, however, to organize 
the data somewhat, so that it may be 
proof-read more easily. Here, records 2-4 
have a tag of 2, which defines the right- 
hand-side (RHS) data, along with a row 
name and row index. Records 4, 9, 13 and 
17 define column names, column indices and 
the coefficients of the objective vector 
(array). They have a tag of 4. 

The rest of records 2-20 have a tag 
of 6, and define the ABAR coefficients, 
along with the row and column indices. 

Records 18 and 19 are redundant, 
since the ABAR matrix is filled with zeros 
before the data is read in; they are 
included here only for completeness. 

Record 21, with a tag of 99, is not 
necessary; it is, however, best to have it 
included to provide assurance that you 
have built and read the file correctly and 
completely. 

Listing 3 show the results of a run 
with this data. The program first asks 
for the data file name; the initial data 
is listed. Note that row ABAR(M+1) is the 
objective function data. 

The program then enters Phase 1, in 


which it finds a "basic feasible 
solution" which satisfies all the 
constraints. In this problem it goes 


through three iterations and lists the 
values of the X's at each stage. When a 
basic feasible solution is reached, Phase 
2 is started. In this phase, the final 
optimization is done. The final results 
are printed: 


х 
~ 
коп 


The pointer to the variable is shown 
in the third column of the "LIST & X 
ARRAYS" printout; the last column shows 
the value of the variable. Tn his 
listing, the row labelled "М+1" shows, in 
the value columns, the negative of the 
cost; since we originally multiplied by 
-1, it also directly shows the profit. 
Note that none of Ха was used in finding 
the optimum. It was in the problem at the 
start of phase 2, but the "better way" was 
found. 


PROGRAM ERRORS 
Several types of errors in data are 
tested for and reported (if found). 


1. When the data file is read in, if the 
first record does not have a tag of 0, the 
output "BAD FILE FORMAT" is output. The 
run is aborted. 


2. In Phase 2, the output "ERROR IN 
ITERATION N" indicates that a division by 
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0 was detected. The data has an error in 
iti 


3% In Phase 1, the output "NO FEASIBLE 
SOLUTION AFTER N ITERATIONS" indicates 
that the constraints, as supplied, are 
inconsistent. 


4. In Phase 2, the output "UNBOUNDED 
SOLUTION" indicates that the problem as 
posed, has a minimum at Negative Infinity. 
This problem cannot be solved as posed. 


There is a possibility that, during 
Phase 2, the program may "cycle" - go 
through iterations in which multiple 
Solutions are found having the same 
minimum. This generally means that the 
problem is over-constrained or has 
redundant constraints. 


MORE TO COME 

Part 2 of this article will provide 
an editor program to list and/or build or 
modify data files, and several problems as 
examples of the use of the Linear 
Programming Technique. 


Suggested Reading 


1. GASS, S.I.: "Linear Programming - 
Methods and Applications", McGraw-Hill, 
1958. 


2. SAATY, T.L.: "Mathematical Methods of 
Operations Research", McGraw-Hill, 1959. 


35s HILLIER, F.S. в LIEBERMAN, G.J.: 
"Operations Research", Holden-Day, Inc. 
1974. 


NOTICE: SOFTWARE ON DISK AVAILABLE 

The linear programming software 
listed in this article is available on 5- 
1/4 in. North Star disk for $20. This 
covers the cost of disk, mailing and 
handling. Order it directly from Bill 
Yarnall - address at beginning of article. 


WOULD YOU LIKE TO BE 


S-100 MICROSYSTEMS is the S-100 
magazine. In fact, there is no other 
competition. Our current dealers report 
that having S-100 MICROSYSTEMS magazine 
available for sale in their stores helps 
sell S-100 based computer systems. 

We require a minimum order of only 10 
copies per month and offer standard trade 
discounts. Further, we will take back any 
unsold saleable copies within six months. 

For more information call or write: 

S-100 MICROSYSTEMS 
Box 1192 
Mountainside NJ 07092 
201-277-2063 
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LISTING 1 


The Linear 


Programming Algorithm. 


(Note: line numbers are not part of the 
program.) 


ENTER FILE NAME ---> LINEARP. TEXT 
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ма бо ~] m ob wE 


FROGRAM LINERRF: 


(ж MINIMIZE 


A COST FUNCTION SUBJECT TO CONSTRAINTS. 
MAXIMIZE NEGATI 


ІНТІУЕ OF “PROFIT” FUNCTION. ж? 


CONST 
МНХЕОМ = 32; 
MAXCOL = 64; 
TYPE 
RRAY C4. . MARROW] OF REAL; 


ћ 
ARRAY [i. . МАХСО 1 OF REAL; 
ЕКЕС = RECORD 
CASE TAG: INTEGER OF 
B: (NRHME:STRINGL6 3; МОМА, NUM2: INTEGER); 
: HEADER: STRINGL 64 15; 


1 

2: &RHHME:STRINGLG6 3; RINDEX: INTEGER; RHS: REAL); 
4: &CHRHE:STRIMGLS61 CINDEX: INTEGER; ОВЈ:КЕАС >; 
e 
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: (RS: INTEGER: Т:БКЕНІ 2; 
99: ©> 


VAR 

О : ARRAY C4. . MARROW, 1. . MARROW] OF КЕНІ; 
REAR : ARRAY Di... МАХКОМ, 1.. МАХСО Ј OF КЕНІ; 
х, RIK : ARRAY C4. . MASROW] OF REAL; 

LIST : ARRAY С1.. MARONI OF INTEGER; 


ROWNAME : ARRAY C1. . MASROW] OF STRINGD 62; 
COLNAME : ARRAY C41..MASCOL] OF STRINGÉG 3; 
FILEID : FILE OF FREC; 

FILNRM : STRING; 

Е.: ЕРЕС; 

HEADING : STRINGI 642; 

HDRFLRG : BOOLEAN: 

М, М, МР, MA : INTEGER; 

FNAME : STRINGL6J; 

RESULT INTEGER; 


: PROCEDURE PRINTH; 


BEGIN 
WRITELNC^ ^»; 


WRITELHé^ PROG. NAME = ^,FNRME»; 
WRITELN” NO. ROWS = *,M:6»5; 
ARITELNC^ NO. COLS = 7,М:65; 


MRITELNC^ 7» 
END; (ж PRINTH ж» 
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іш 0200 (00 CO 09 CO OG OD 00 CO "å -J 74 > 
D'ONDA ымы GI mo QC 


18 


: PROCEDURE PRINTE; 


BEGIN 

WRITELNC’ 72; 

WRITELN¢’ BAD FILE FORMAT’); 
MRITELNC^ 7» 
END; сж PRINTE ж» 


: PROCEDURE FRINTCCB : ROW C : COL; 


VAR 
I : INTEGER; 
BEGIN 
WRITELN” 72; 
WHRITELN* INITIAL DATA 2; 


WRITELNC* 72: 
WRITELNC^ OBJECTIVE VECTOR” 2; 
WHRITELNC^ ^5; 
FOR 1:=1 TO N DO WRITELNCCOLNAMEL I 1:9. CL 13:14:85; 
WRITELNC^ ^25; 
WRITELNC^ RHS VECTOR”); 
WMRITELNC^ 72; 
FUR 1:=1 TO M DO WRITELNCROWNANED I 3:8, BLI 3:14:85; 
HRITELNé^ 72 
END; (ж PRINTC ж» 


: PROCEDURE PRINTD; 


VAR 
LJ : INTEGER: 


BEGIN 
WRITELNE ^»; 
MRITELNC^ ABAR ARRAY”); 
MRITELNC^ ^); 
FOR J:-1 TO N DO 
FOR 1:=1 TO M DO 
WRITELNCI :6, 1:6, ROMNAMEL I 3: 8, COLNAMEL J 1:8, ABARI І, 71:14 
WRITELNC^ 7); 
WRITELNC’ ABARCM+1), ABARCM+2>/); 
MRITELNC^ ^5; 
FOR I:-1 TO N DO 
WRITELNGCOLNAMEL I 2:8, RERRE М4, I 2:14: 8, RBRREMP, 12:14:80; 
HRITELNC^ ^) 
END; (ж PRINTD ж) 


^: PROCEDURE PRINTX; 


VAR 
І : INTEGER; 
5 : STRIRNGL 62; 


BEGIN 
WRITELNC^ 72; 
HRITELNC^ LIST & X ARRAYS”); 
WRITELNC’ 72; 
FOR 1:=4 TO MP DO 
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:8»; 


182: BEGIN 


183: 5:=“ 

184: IF KLISTELIJ&-N) THEN S:=COLNAMECLISTCI 223; 
105: IF «І2М2 THEN S:=ROKNAMEL I 2; 

106: МЕТІТЕ(МС1:8,5:8,115Т111:7,Х111:18:8); 
187: END; 


108: WMRITELNC^ 72 
109: END; (ж РЕТМТХ ж? 


118: 
111: PROCEDURE INITIAL; 
112: ‘VAR 


115: LJ : INTEGER; 

114: SUM : RERL; 

115: FIRSTIN : BOOLEAN; 

116: B : ARRAY С1.. MASKON] ОҒ REAL; 
147: C : ARRAY [1.. MRACOLJ ОР REAL; 


118: 

119: BEGIN 

128: FOR 1:=1 ТО МАХЕОИ DO 

194: FOR J:=4 TO MAXCOL DU ABARI I, JJ:=8. 6; 


122: FIRSTIN:=FALSE; 
123: IF NOT EOF(FILEID> THEN F:-FILEID^; 
124: IF F. TAG = 8 


25: THEN 

126: BEGIN 

127: FIRSTIN:=TRUE; 
128: PNAME : =F. NAME; 
129: М:-Ғ. NUM4; 
138: N:=F. NUH2; 

1.51: МР: =M+2; 

132: М4:-М%1; 

133: PRINTH 

434: END 


139: ELSE BEGIN PRINTB; RESULT:-2 END; 

136: GET&FILEID2; 

2-4: WHILE (FIRSTIN> AND (NOT EOFCFILEID>> DO 
138: BEGIN 


139: F:-FILEID^; 

148: WITH F DO 

141: CASE TAG OF 

142: 1: BEGIN (ж HEADER жу 

143: HERDING:-HERDER; 

144: HDRFLRG: =TRUE 

445: END; 

146: 2: BEGIN C+ ROWNAME & RHS жо 
147: ROMNAMED RINDEX 1: =RNAME; 
148: BL RINDEX 7: -RHS 

149: END; 

158: 4: BEGIN Ck COLNAME & СЕЛ жу 
451: COL НАМЕГ CINDEX 1:-СМНМЕ; 
152: CL CINDEX J: =0BJ 

158: END; 

154: 6: RBRRER, 5 2: =Т; 

199: 99: ; 

156: END; сж CASE OF TAG ж» 
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152: 
158: 
159: 
160: 
164: 
162: 
152: 
164: 
165: 
166: 
167: 
168: 
169: 
1768: 
171: 
172: 
Les: 
174: 
175: 
176: 
ТУ”: 
Ave: 
179: 
136: 
131: 
1S2: 
183: 
184: 
185: 
186: 
187: 
188: 
199: 
196: 
191: 
192: 
193: 
194: 
195: 
196: 
197: 
198: 
199: 
298: 
201: 
212: 
263: 
284: 
285: 
286: 
287: 
288: 
269: 
218: 
211: 


GETCF 
END; 


ILEID> 
(ж WHILE жу 


IF FIRSTIN THEN 


BEGIN 


PRINTC(B, C5; 


FOR J:=1 Та М DO RBRRLM1, JJ: ZCEJ 2; 


FÜR I:-1 TO M DO 
IF БІІ1< 86. И THEN 
BEGIN 
BLI 1:=-BLI 1; : 
FOR Ј:=4 TO М DO ABARI I, J 1: Z-HBRRE I, JJ 
END; 
FOR J:-1 TO М DO 
BEGIN 
SUM:-&. 8; 


FOR I:-1 TO M DO SUM:=SUM-ABRRE I, 72; 


RERRE MP, J J: ==0М 


END; 
BI n1 3 


:=0. 65 


SUM: =Ø. 0; 
FOR 1:24 TO M DO SUM:=SUM-BLI 2; 


BL HP I 
FOR I 
BEGIN 
^L IJ 


: zSUM; 
:=1 TO MP DO 


:=ELI J; 


LISTE 13: =н+1; 
FOR J:=1 TO MP DO UEI J):=6. 0 


END; 
FOR I 


END; 


:=4 TO MP DO ШІ,11:-1 0; 
PRINTD; 
ROWNAMEL М1 3: =* +1 K 
ROWNAMEL MP J: =“M+2 е; 
PRINTX 


(ж IF FIRSTIN жо 


WHRITELNC^ ^2; 


END; 


(ж INITIAL жо 


PROCEDURE PHASE4; FORWARD; 


PROCEDURE EXIT1I¢X: INTEGER); 


2, AD; 


БЕСІМ 
RESULT : 21; (ж NORMAL EXIT ж2 
WRITELN(^ 
^ ITERATIONS”); 
PRINTX; 
EXITCFHRSE1»5 
END; (ж ЕХІТІ *) 
PROCEDURE EAXITZCA: INTEGER); 
BEGIN 
RESULT :=2; (ж ERROR EXIT ж» 
WRITELNC^ ERROR ІМ ITERATION 
PRINTS: 
EXIT CPHASE1> 
END; (ж EXIT2 ж) 


END OF FHASE 1 FOR *, РАНМЕ, ^ AFTER 7,%, 
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212: 

213: PROCEDURE EXITS¢X: INTEGER); 

214: BEGIN 

215: RESULT : 23; (ж NO FEASIBLE SOLUTION ж; 

216: WRITELN¢’ NO FEASIBLE SOLUTION AFTER ^, X, ^ ITERATIONS”); 
eir: PRINTX; 

218: EXITCPHRSE1) 

219: END; (ж EXITS ж) 


226: 

221: PROCEDURE PHRSE1; 
222: CONST 

223: TOL = 1. GGE-6; 
224: 

225: VAR 


226: ITER, I, Ј, L; KSRVE : INTEGER; 
227: SUM, TEMP, THETA. 2 : REAL; 


228: AL» ALK : REAL; 


229: DEL, У, И : ARRAY €4..MAXROWI] OF REAL; 
220: TEST : BOOLEAN; 
231: 


232: BEGIN 

233: HEITELNC^ START PHASE 172; 
224: WRITELNC^ 72; 

255: ITER: 76; 


236: WHILE TRUE DO (ж LOOP HERE ж; 
237: BEGIN 

238: IFCABSCXEMP I> < TOL? THEN EKXITACITER); 
239: IF&XLMPJ > TOL) THEN EXIT2CITERD; 
240: ITER :=ITER+4; 

241: FOR Ј:=4 TO М DO 

242: BEGIN 

24%: SLM :=6. 8; 

244: FOR 1:=1 TO MP DO 

245: SUM: =SUM+UL МР, I J#ABARE І, 72; 
246: DELE J J: =SUM 

247: END; 

248: TEST : - TRUE; 

249: FOR J:=4 TO М DO ТЕСРЕЦ Ј32<8. O) THEN TEST: -FRLSE; 
250: IF TEST THEN EXIT3CITER?; 

251: TEMP : =4. @GE+36; 

252: KSAYE : =0; 

253: FOR Ј:=4 TO М DO 

254: IFCDELE JI<TEMP> THEN 

295: BEGIN 

256: TEMP : =DEL[ J J; 

257: KSAYVE :=J 

258: END; 

259: FOR I:-1 TO MP DO 

260: BEGIN 

261: SUM: -8. 8; 

262: FOR J:=4 TO MP DO SUM:=SUM+UL I, J J«RBRRE J. KSRVE 2; 
263: XIKC13:=SUM 

264: END; 

265: THETA: =1. BGE+36; 

266: L:=6; 

267: FOR I:-1 TO М DO 
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әт 


PIP 
бш ш мш Woo ibo MD 
Му oO Oy Oa рам 


lat lel PO P2 RO P2 PO ГӘ 


m 


a 
nå 


ТЕСХТКС I 229. @> THEN 
BEGIN 
2:=40 11/Х1К[ IJ; 
IFC€Z-THETR? AND (LISTE I IDN> 
THEN L:=I 
ELSE 
IFCZ<THETA> THEN 
BEGIN 
THETA: =2; 
L:=I 
END 
END; 
IFCL=6>) THEN EXITZCITER5; 
LISTLL 3: =KSAYE; 
FOR 1:=4 TO MP DO 
BEGIN 
VE IJ: =ХІКГ I J7XIKEL 2; 
ИСТ 0: = И, IJ 
END; 
AL:=X0L 1; 
ALK :=XIKEL J; 
FOR І:-1 TO MP DO 
BEGIN 
Z:=THETA; 
IFCLISTCII <> КАМЕ) THEN Z:-XEIJ-XL*VEC 12; 
XL I 3:22; 
FÜR J:-1 TO M DO 
BEGIN 
Z :-ME J7XLK; 
IFCIX2L? THEN Z:=UC 1, JI-WE J ЈУГ I 3; 


UL I, Ј Ј:=2 
END 
END; 
WRITELNC^ ITERATION ^, ITER,“ OF “,РМНМЕ)›; 
PRINTX 


END (ж WHILE ж» 
END; Ck PHASEL ж; 


: PROCEDURE PHRSE2; FORWARD; 


: PROCEDURE EXIT4CX: INTEGER); 


BEGIN 

RESULT : 21; (ж NORMAL EXIT жо 

WHRITELNC^ END OF PHASE 2 FOR ^,PNRME,^ AFTER 7,Х,” ITERATIONS”); 
FRINTX; 

EXIT CPHASE2)> 

END; 


- PROCEDURE ЕХ1Т5<Х: INTEGER); 


BEGIN 
RESULT : =2; Ck UNBOUNDED SOLUTION ж) 
MHRITELNC^ UNBOUNDED SOLUTION FOR *, PNAME); 
PRINTX; 
EXITCPHRSE2) 
END; 
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324: 
325: 
326: 
327: 
328: 
329: 
338: 
331: 
332: 
4: 
234: 
339: 
336: 
Ser: 
338: 
$396 
240: 
341: 
342: 
342: 
344: 
345: 
246: 
347: 
348: 
249: 
256: 
391: 
352: 
45$: 
254: 
S9: 
356: 
357: 
358: 
359: 
х6@* 
364: 
362: 
363: 
364: 
365: 
366: 
367: 
368: 
369: 
378: 
371: 
Sf2: 
373: 
374: 
375: 
376: 
377: 
378: 
379: 


S-100 MICROSYSTEMS 


PROCEDURE PHASEZ; 
CONST 


TOL = -1. GE-6; 


VAR 


I, JL. ITER, KSRVE : INTEGER; 

SUM, TEMP, THETA, 2 : КЕНІ; 

XL ХЕК : КЕНІ; 

DEL, VW : ARRAY С1.. МНХКОМ2 OF REAL; 
TEST : BOOLEAN: 


BEGIN 


ITER: =8; 
WHRITELNC^ START PHASE 272; 
WRITELNC’ ^25; 
WHILE TRUE DO (ж LOOP HERE ж? 
BEGIN 
FOR J:-1 TO N DO 
BEGIN 
SUM: =й. 6; 
FOR I:-1 TO MP DO SUM: =50М+0 М1, I J*ABARC І, 72; 
DELL J 1: - ZUM 
END; 
TEST : =TRUE; 
FOR J:=4 ТО N DO IF&XDELEL.JJXTOL? THEN TEST :=FALSE; 
IF TEST THEN ЕЖІТ4<ІТЕК;; 
ITER: =ITER+4; 
TEMP : =4. ВЕ+36; 
KSAVE :=8; 
FOR J:=1 TG H DO 
IFCDELL J ЈСТЕМР) THEN 


EEGIN 
TEMP : =DEL[ J J; 
KSRWE:-J 

END; 

FOR I:=1 TO MP DO 
BEGIN 
Sum: =й. à; 


FOR 7:-1 TO MP DO SUM:=SUM+ULC I, J J€RBRRE J. KSRVE 2; 
AIKE I 1: SUM 

END; 

TEST : Z TRUE; 


FOR 1:=1 TO MP DO IFCXIKLI 220. 80? THEN TEST:=FALSE; 


IF TEST THEN EXITSCITER)D; 

THETA: 71. ВЕ+56; 

L:-6; 

FOR I:-1 TO M DO 
ТЕСХТКС I 158. @> THEN 
BEGIN 

Z:-XLIJA^XIKEII 
ІЕ‹2 < THETA) THEN 
BEGIN 
THETA: =Z; 
L:=I 

END 

END; 
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386: 


LISTCL 3: =KSAVE; 


381: FOR 1:=1 TO MP DO 
382: BEGIN 
383: VLIJ:-XIKE I J7XIKEL 1; 
384: WLI3:-UEL, IJ 
385: END; 
286: XL:-XEL 2; 
387: ХЕК: =XIKEL 2; 
388: FOR I:-1 TO MP DO 
389: BEGIN 
390: 2:-ТНЕТН; 
391: IFCLISTC I K>KSAYE) THEN Z:=X[ I J-XLAVEOI 2; 
392: XL 17:=2; 
393: FOR J:-1 TO M DO 
394: BEGIN 
295: Z:-ME J J7XLK; 
396: IF ІХ) THEN 2:-ШГ1,71-МШІ.)2жУГ I J; 
397: ULI, J]:=2 
338: END 
399: END; 
400: WRITELN¢” ITERATION 7, ITER,” ОҒ ”, PNAME); 
401: PRINTX 
482: END Ck WHILE жо 
482: END; (ж РНН5Е2 жо 
484: 
485: BEGIN (ж MAIN жо 
486: WRITEC’ ENTER DATA FILE NAME ---> ^»; 
487: READCFILNAM); 
488:  RESETCFILEID. ЕП НАМ»; 
409: WRITELNC’ 72; 
4180: INITIAL: 
411: IF (RESULT <> 22 THEN FHRSE1; 
412: IF (RESULT = 1) THEN PHASE2; 
415: IF HDRFLRG THEN HRITELN(^ 7, HEADING); 
414:  WRITELNC^ 7); 
415: MRITELNC^ 72 
416: END. 
LISTING 2 
А sample data file named "LINTEST.DATA". 
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EDIT: LCIST, BCUILD, MCODIFY, QCUIT [1.683 L 
LIST WHAT FILE? LINTEST. DATA 


STARTING AT WHAT RECORD? @ 
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0: @ TEST 3 4 

1: 1 TEST OF LINEAR ОРТ., (GASS P. 95) 
2: 2 ROW 1 15. 808080 
3: 2 коша 2 20. 4808 
4: 2 -ROH3 3 16. 08000 
5: 4 COLA 1 -1 вайой 
6: 6 ROW 1 COL 1 1. павее 
£4 6 ROW 2 COL 1 2. aaaag 
8: 6 ROW 3 COL 1 1. #0000 
9: а COL2 2 -2. 890698 
16: в ROW 1 COL 2 2. GGGH 
11: 6 ROW 2 COL 2 1. GAGGA 
12: 6 ROW 3 COL 2 2. aaaag 
13: 4 COL3 3 -2 aBaag 
14: 6 ROW 1 COL 3 3. вава 
15: 6 ROW 2 COL 3 5. авва 
16: 6 ROM 3 COL 3 1. ададе 
27: 4 COL4 4 1. Gaaa8 
18: 6 ROW 1 COL 4 а. паваа 
19: 6 ROW 2 COL 4 а. AGBA 
20: 6 ROM 3 COL 4 1. eacaa 
21 99 LOGICRL EOF 


EDIT: (6157, BCUILD, MCODIFY, BCUIT [1.683 Q 


HE MM-103 DATA MODE. 


AND COMMUNICATIONS ADAPTER 


bus compatible 


FCC APPROVED HIGH QUALITY 


Both the modem and telephone system interface are -50 dBm sensitivity. Auto answer. Auto originate. Auto 
FCC approved, accomplishing all the required protective dialer with computer-controlled dial rate. 61 to 300 baud 
functions with a miniaturized, proprietary protective (anywhere over the long-distance telephone network), 
coupler. rate selection under computer control. Flexible, soft- 


WARRANTY ware-controlled, maskable interrupt system. 
> — " ASSEMBLED & TESTED 
ne year limited warranty.  Ten-day unconditional 


return privilege. Minimal cost, 24-hour exchange policy Not a kit! (FCC registration prohibits kits) 


for units not in warranty. 
For Modem plus shipping — 


LOW PRICE— $359 >— AND Coupler & handling exes 


Call for further information: 
VOICE: (703) 750-3727 
MODEM: (703) 750-0930 (300 baud) 


Write for brochure: 
First Lincolnia Bldg., Suite B1 
4810 Beauregard St. 

Alexandria, Va. 22312 
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LISTING 3 


A sample 


run, using the data 


"LINTEST. DATA". 


file 


ENTER DATA FILE NAME ---> LINTEST. DATA 


PROG. 


NG. ROWS 
NO. COLS 


NAME TEST 


AU 


INITIRL DRTR 


OBJECTIVE VECTOR 


COL1 -1. бадав 
caLe -2. асай 
COL3 -3. авва 
COL4 1. вавод 
RHS VECTOR 
КОНА. 15. иваа 
ROW2 га. рове 
ROWS 18. авад 
REAR ARRAY 
1 1 РОМ 
2 1 ROW2 
= 1 ROWS 
1. 2 ROW 
2 2 ROW 
3 2 ROWS 
1 3 ROWS 
2 3 RüH2 
® х КОЗ 
1 4 ROH 
2 4 ROWe 
3 4 ROWS 
RERRCM*15, ABARCM+2> 
COL1 -1. брав 
COL2 -2. павве 
COL -3. павад 
CüL4 1. BEGGG 


LIST & X ARRAYS 


1 ROW 
2 ROW2 


COL1 1 
соса 2. 
COL4 1. 
COL2 2 
coL2 1. 
coLe 2 
COL3 3. 
COL3 5 
COL3 1 
COL4 6 
COL4 9 
COL4 1 

-4. 666660 

-5. Gao 

-9. GABO 

-1. 668800 
5 15. вова 
6 26. 6669 


. daga 


515151616) 
15216151612) 
121515117) 
215151617) 
(219151519, 
219151510 


515151415) 


обаве 
66600 


. 80088 
. 80000 
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% ROWS ? 18. 9966 
4 М+1 8 B. пиве 
5 ма 9 -45. 698088 


START PHASE 1 
ITERATION 1 OF TEST 


LIST & X ARRAYS 


1 ROH 5 3. 680008 
2 ROW2 3 4. 60000 
3 ROWS r4 6. давиа 
4 Mti 8 12. 0068 
5 M+2 9 -э. ййаййй 
ITERATION 2 OF TEST 
LIST & X ARRAYS 
1 ROMA 2 2. 14236 
2 ROWS 3 2. 87142 
3 ROMS 7 2. 14256 
4 М%1 8 15. aaa 
5 M+2 9 -2. 14256 


- CONTINUED ОМ PAGE 33 - 


COMING IN FUTURE ISSUES 
of 
S-100 MICROSYSTEMS 


Linear Programming Techniques In Pascal (Part 2) 
Introduction To CP/M (part 3) 

North Star Topics 

DynaTrace - An 8080 Emulator 

A Pascal Monitor Program 


Spooling For the North Star 

Cursor Addressing For Memory Mapped Video Displays 
Utilities For The Sol Computer 

More Hardware Mods For the Tarbell Disk Controller 
Cursor Addressing For CRT Terminals (Part 2) 
Handling Look-up Tables 


PLUS ... 


news....views....product reviews....software 
catalog ...letters to the editor....new products 
directory.....CBBS systems around the country. 


don't miss S-100 MICROSYSTEMS the magazine for 
serious microcomputer user. 
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AN INTRODUCTION TO CP/M* 


by 


Jake Epstein 
Innotronics 
Brooks Road 
Lincoln, MA 01773 


* Reg Tmk Digital Research 


PART II 
FILE STRUCTURE AND COMMAND SYNTAX 


In my last article, I discussed the 
basic memory map of the CP/M ver. 1.4 
operating system plus the dialog that 
occurs when the system is initially 
"booted up". In this article I will be 
discussing the command syntax of CP/M, 
basic file structure, and FLOPPY DISKETTE 
mapping. 

To begin, I will describe the layout 
of the FLOPPY DISKETTE so that terms and 
concepts that I use later will be clearer 
to those who are not yet familiar with 
this storage device. Also, for the sake of 
clarity and to prevent confusion, I will 
limit the discussion for now to 8 inch, 
single density diskettes. The diskette is 
a thin magnetic disk made up off material 
similar to that used in audio recording 
tape, and is housed in a square package 
that gives the disk both protection from 
dirt and support. When placed in a device 
known as a DRIVE, the disk rotates 360 
times every minute and data is read from 
and written to the diskette via a 
read/record head that moves in and out 
depending on information supplied by host 
computer or device. What has made the 
floppy diskette so economically viable is 
that when actuated, the head comes in 
contact with the revolving magnetic 
material thus eliminating the mechanical 
difficulties associated with hard disks 
where heads have to be extremely close to 
the medium but can not touch due the the 
injurious effects of abrasion. This is not 
to say that ebrasion is not a problem for 
diskettes,for they can eventually wear out 
through normal use and dirt contamination. 

Of special interest to CP/M users is 
diskette layout. The 8 inch variety 


contains 77 TRACKS which are actually 
concentric circular areas on the disk. 
When disks are initially formated, these 
tracks are laid out, thus read/record 
head alignment will prove very important 
for accuracy of data transfer. When a 
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drive is commanded to read or write a 
certain track, the read/record head moves 
in or out (also known as SEEK) to find the 
specific track. In order to calibrate the 
drive, the head will perform a seek TRACK 
0 upon system reset, and thus, all 
movement of the head can be monitored by 
Software. The track at the outside edge of 
the diskette is track 0 whereas the 
innermost track is number 76. Each track 
is divided into 26 SECTORS thus the total 
number of sectors on the diskette is 77 * 
26 or 2002. In order to locate specific 
sectors, the first sector of each track, 
sector 01, is indicated via a hardware 
indicator which senses a hole in the 
diskette, the INDEX. Other than TRACK 00, 
and the INDEX, the type of diskette used 
by CP/M, SOFT-SECTORED FORMAT, has no 
other hardware indicators of sector and 
track location, and thus alignment of the 
read head coupled with data encoded on the 
disk during FORMATTING aid in sector 
location. 

There is a type of diskette that has 
a series of 32 holes to indicate sector 
location. These HARD SECTORED FORMAT 
diskettes are incompatible with CP/M and 
should be avoided even though they can be 
made useable through formatting tricks. 
Each sector of a properly formated 
diskette contains both areas for data (as 
Stored and retrieved by the user) and 
areas for identification and error 
checking. It is beyond the scope of this 
article to discuss formatting , but 
investigation of the references appended 
to this text will provide information on 
this subject. For now, all one needs to 
know is that each sector contains the 
track number, sector number, an area for 
the storage of 128 data characters (BYTES) 
and a CRC (CYCLIC REDUNDANCY CHECK) 
location to aid in detecting errors. Thus 
the available storage on each disk is: 
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77 TRKS * 26 SECTRS/TRK * 128 BYTES/SECTR 


= 256 256 BYTES. 


For the uninitiated, a byte is a 
Standard data size of the computer 
industry which is 8 bits long and 
represents 256 different BINARY or base 2 
numbers. These numbers as stored on 
diskette can either represent numeric 
data, special codes such as machine 
instructions, or alphanumeric characters 
in the form of the 7 bit ASCII code. 
Because diskettes are organized as 
discrete data structures, the 2002 
sectors, special characters and/or 
identification headings are not needed 
within the data to aid in its exchange. 
Thus in contrast to sequential storage 
systems such as MAGTAPE or PAPER TAPE, the 
disk operating system can handle large 
streams of data without needing to check 
for beginnings and/or endings. The 
disadvantage of disk systems is that the 
minimum number of data bytes that can be 
read or written at any one time is 
dependent on sector size. In contrast, 
serial systems, such as MAGTAPE, can 
read/write one character at a time even 
though this is rarely done. A result of 
disk storage is that there will be times 
when storage space will be wasted, for the 
amount of data stored may not use up an 
entire sector. An advantage is that having 
discrete structure allows for random 
access to files and/or parts of files. In 
other words, to access a file on a tape, 
one has to read the entire tape to find 
the desired data or start of data whereas 
in disk systems, data can be seen as a 
series of physical locations. Finally, the 
term used for the data stored in a sector 
(128 bytes) is RECORD; thus a record is 
128 bytes in CP/M. Also, the term FILE is 
used to describe a set of data. In other 
words, the binary data that comprises a 
program such as a text-editor would be 
Stored on diskette as a file, or, the text 
to this article could be stored as a file. 


At this point I shall change the 
subject and discuss COMMAND SYNTAX. First 
of all, when the entire operating system 
is in main memory, communication is 
usually accomplished via a CONSOLE device 
such as a CRT terminal or video-keyboard 
interface. Through some hardware and 
software manipulation, however, other 
devices such as modem boards for 
communication over telephone lines or card 
readers for BATCH style processing can be 
used. The subsystem of CP/M that directs 
and processes this dialog is the CCP 
(CONSOLE COMMAND PROCESSOR), and it does 
So by forming an interface between the 
user implemented INPUT-OUTPUT routines 
found in BIOS (BASIC I/O SYSTEM), and file 
handling routines found in BDOS, (BASIC 
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DISK OPERATING SYSTEM). In a future 
article, I will discuss BIOS handler 
modification for different hadware 
configurations, and user access of BDOS 
routines for generation cf hardware 
independent programs that can be run on 
any CP/M or equivalent system. 

Conversation when CP/M is in the 
COMMAND MODE (communicates via CCP with 
console device) occurs via uppercase 
alphanumeric characters and CONTROL 
functions. The lowercase alphabet is 
accepted, but it is converted to upper 
case before processing or storage, and 
thus user programs that leave lowercase 
characters in areas that are used by CCP, 
i.e. file names, can cause difficulties 
later. Also important to note is that all 
text is buffered until a carriage return 
function is received at which time a line- 
feed is sent to the console and then the 
command text is interpreted and executed. 
When a character is typed at the keyboard, 
it is read and then transmitted or ECHOED 
back to the screen or printer of the 
console. A BUFFER is an area of temporary 
Storage that can be found any where 
information needs to be held, and the area 
of system memory in the CP/M memory map 
reserved for both console and disk file 
buffering is location 080H to OFFH. Thus a 
text string of 128 characters can be 
entered before the buffer overflows 
causing an error to occur. When this 
happens, the entire text as typed in will 
be automatically sent to the console 
followed by a "?", and when the CCP does 
not understand a command due to a mistake 
in syntax or other error, the same type of 
echo of text occurs. 

The following list of special 
characters are reserved and are only used 
in certain situations: 


The functions implemented via the CCP 
are almost all file handling in nature, 
whereas other functions such as memory 
modify or single step program execution 
are provided for in utility programs that 
run under CP/M. Several of these are 
provided by DIGITAL RESEARCH on the 
original distribution diskette with the 
CP/M operating system, while others are 
available as seperate software packages. 
The standard CP/M utilities will be 
discussed in future articles. 

As discussed above, since floppy 
diskettes are organized as a series of 
discrete records, then special characters 
such as SOH (START OF HEADING) or FS (FILE 
SEPARATOR) and/or identification headings 
that are required to monitor sequential or 
continuous data streams are not required. 
However, in certain file types, CP/M 
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utilizes procedures and conventions used 
in other systems. Below is a table of four 
type of files used by CP/M: 


BINARY Used for storage of MEMORY 
IMAGES of programs in 
machine code. 


ASCII Used for text or source 
Programs. An EOF (END OF 
FILE) separator is used 
after last character. In 
CP/M this is a control-z 


(01AH) 

HEX FORMAT Byte values of 8 bits are 
converted to two 
hexadecimal values each of 
which represents one 4 bit 
nibble. Each nibble value 
is stored as an  ASCII 
character. 

RELOCATABLE Used by certain assemblers 


or compilers. This is a 
special coding of machine 
programs that can be made 
to run at any memory 
location by using linking 
utility programs. 


In the above file types, binary is 
the most compact and can include any kind 
of data. What is meant by memory image is 
that the file is a copy of a block of data 
as it appeared in computer memory thus 
giving the user the ability to replicate a 
memory state at a future time after the 
computer has been shut off or the memory 
changed. The reason why an EOF is used 
with ASCII files is that this gives a 
method for retrieving an exact copy of a 
Stored file as to length, for without this 
feature, the file would have to include 
all of the data that was unused from the 
last sector as explained above. Hex 
format is a very versatile data type in 
that software generated checksums can be 
incorporated into the file giving a means 
for error checking and correction. This 
however, causes considerable software 
overhead and requires a great deal more 
Storage space than other data types. 
Because Hex format can be confusing, below 
is an example of data as represented by 
different data types and hex format. 


165 Decimal = 1010 0101 Binary = A5 Hex = 


ASCII 


0100 0001 Binary = 41 Hex 
= ASCII 


0011 0101 Binary 35 Hex 


ион 
л> 
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In the above the hexadecimal 
equivalent of the number, A5, is stored as 
ASCII codes so immediately it should be 
apparent that hex files will be at least 
twice as long as binary files. Checksums 
are generated in different ways, but 
usually all the data bytes in a BLOCK (a 
sub unit of a file usually associated with 
large storage devices like mag tape) are 
added together and then an adjusted number 
is stored in a non-data area of the file. 
When files are read and the stored 
checksum is different than the one 
generated, then an error has occured. Some 
software systems have the means to correct 
errors. At present, CP/M can only detect 
errors by using hardware generated CRC 
(CYCLIC REDUNDANCY CHECKS) which are 
generated in a similar manner to 
checksums, but error correction is not 
available, Thus, using file types that 
use checksums can prove useful for 
increasing reliability of disk storage. It 
should be mentioned that actually, CRC 
errors are detected by routines in BIOS, 
so that different disk controllers handle 
the errors differently. 

CP/M uses a special file called the 
DIRECTORY to store pointers to file 
locations on the diskette. This directory 
files located in 16 sectors on track 02. 
After a great deal of searching, I found 
that the following list of sectors contain 
the directory file on track 02: 


sectors l, 7, 13, 19, 25, 5, ll, 102, 23, 3 
9, 15, 21, 2, 8, 14 (decimal) 


The reason that the sectors are not 
in order, i.e. 1, 2, 3 etc., is that 
SKEWING is used to make reading and 
writing as efficient as possible. When two 
Sectors are close together, hardware and 
Software may not have time to identify and 
read/write the second one after doing so 
with the first before it slips by. In this 
situation, the system has to wait for one 
full revolution of the diskette for the 
Second sector to come around again. The 
Skewing for CP/M 1.4 is 6 but in other 
Systems, it may be different causing 
incompatibility problems. In CP/M 2.0, 
this skewing can be modified by the user 


because this aspect of the system is 
handle in BIOS as opposed to version 1.4 
where it is handled in BDOS. In a future 
article I will discuss this and other 
enhancements found in version 2.0. A word 
of warning to CP/M 1.4 users. If you have 
a CP/M system for 5.25 in disks and wish 
to add 8 inch disks, you will have 
problems because of sector skewing and 
track size. The same is true for 8 inch 
users that want to add the smaller drives. 
CP/M 2.0 eliminates this problem. 

The data structure that stores 
information about each file on the disk is 
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the FCB (FILE CONTROL BLOCK). Since I will 
be dedicating a lengthy discussion to the 
FCB in a future article on BDOS function 
calls, I will only describe a few concepts 
at this time. Each FCB has an area of 11 
bytes in length that contains a PRIMARY 
and a SECONDARY name. The primary name can 
be any combination of up to 8 characters 
except for those that are reserved as 
mentioned above. Also, the primary name 
may be less than 8 characters, but when it 
is stored in the FCB, each empty position 
after the last character will be filled 
with ASCII "Space" (20H). If a primary 
name is entered that is greater than 8 
bytes, then it will be truncated upon 
storage. Names that are exactly the same 
as CCP function commands should not be 
used, for when files are accessed in the 
LOAD and EXECUTE function, the CCP will 
generate an error message ("?") because it 
will expect a command fucntion. Below is a 
list of possible primary names: 


PRIMARY NAME IN FCR 
9 

The following names are not allowed. 

PRIMARY NAME REASON 

LETTER?D ? IS RESERVED 

JACOB E SPACE IN NAME 

REN REN IS A CPM FUNCTION 


Secondary names are used to indicate 
certain types of files, and thus the CCP 
and/or utility programs can determine the 
data type of the file. For example, as I 
shall explain in next month's article, a 
file with the secondary name of COM can be 
LOADED into memory and then EXECUTED as a 
program. DIGITAL REASEARCH has reserved 
several secondary names for use in the 
operating system, but as software becomes 
more available and diverse, new reserved 
Secondary names are added to the list. Of 
course, the user can use any secondary 
name that he/she desires, but if he/she 
uses a reserved name, then the file should 
fit the criteria of that file type. Below 
is a listing of the most used reserved 
Secondary names: 
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NAME DATA TYPE USE 


COM BINARY PROGRAMS THAT CAN BE EXECUTED 
HEX HEX FORMAT OBJECT OF ASSEMBLERS OR 
COMPILERS 


ASM ASCII SOURCE CODE FOR ASSEMBLERS 

MAC ASCII SOURCE CODE FOR MACRO-ASSEMBLERS 

BAS ASCII SOURCE CODE FOR BASIC COMPILERS 

FOR ASCII SOURCE CODE FOR FORTRAN 
COMPILERS 

PRN ASCII PRINTOUTS OF TEXT FORMATORS, 
COMPILERS, ASSEMBLERS, ETC. 

SUB ASCII SOURCE FOR SUBMIT UTILITY 

$$$ - TEMPORARY FILE MAY BE ANY 
FORMAT 

LIB ASCII LIBRARY FILES 

TEX ASCII ASCII FOR TEXT-FORMATORS 

DOC ASCII MESSAGES OR DOCUMENTATION 

MSG ASCII SAME AS DOC 

TXT ASCII SAME AS DOC 

REL RELOCAT- OBJECT OF RELOCATING ASSEMBLERS- 

ABLE SOURCE TO RELOCATING LINKERS 


There are several that I left out, 
but in future articles I will try to 
include as many as I know of. In naming 
files, the primary and secondary names are 
written together but separated by a ".". 
This delimiter is not found in the FCB but 
represents the position between the eighth 


the 
microcomputer 
people® 


THE VITAL 
computer mart INGREDIENT: 


ofnew jersey EXPERTISE 


Before you buy your new 
microcomputer, chances are 
you have a lot of questions. 
Important questions that 
could mean the difference 
between a working system 
and a wasted system. The 
vital ingredient Is expertise. 
The microcomputer people at 
Computer Mart are expert at 
answering your questions 
and helping you put together 
the best system for your 
application. Whether it’s for 
business, the home, or the 
compen of ін Jersey) laboratory; come see the 

Eds experts at Computer Mart 

of New Jersey. We have the 


(201) 283-0600 
vital ingredient. 
HOURS: 
Open at 10 am, 
Tuesday through Saturday 
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and ninth characters in the name block. 
Here are a few examples. Please remember 
that "-" represents space or ASCII 20H: 


FILE NAME FCR REFRESENTATION 
BASIC.. СОМ 
FORTRANSIOC 
БЕТТЕН, Luse 


BASIC. COM 
FORTRANS + NOC 
LETTER. 1 


A binary dump of a FCB name block with 
ascii equivalents would be: 


005D42 41 53 49 43 20 20 20 434F 4D BASIC COM 


where 005D is a location in system memory 
where the file name usually occurs and 42 
41 etc. are the hexadecimal equivalents of 
ascii codes. 


An area that can cause a great deal 
of confusion is ambiguous verses 
unambiguous file names. These terms refer 
to the ability of the CCP to work with 
files with similar but not identical 
names. Two special characters are used: 
"2" and "*" also known as "wild card". 
Ambiguous file names use these characters 
whereas unambiguous do not have them 
present. Also, file names as found in 
FCB's are unambiguous. Although I will 
get into more detail in next month's 
article when I discuss CCP command 
functions, the following example and 
explanation will hopefully give a better 
uderstanding of this concept. 


ASM?.COM can describe - ASM1.COM or 
ASMZ.COM or 
ASMA.COM 


JANE.??? CAN DESCRIBE - JANE.COM or 
JANE.123 or 
JANE. TEX 


The wild card "*" character is used to 
replace an entire primary name, secondary 
name or both. 


ж/ж САМ DESCRIBE - FORTRAN.COM or 
LETTER. TEX or 
TEST. DAT 


These two characters are used mainly 
in listing out the names of files on a 
disk. For example, using the name *.COM 
with the DIR command of CCP would list all 
COM files. 
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The final aspect of CP/M file 
structure that I wish to discuss this 
month is sector allocation and file size. 
Each file control block has space for 15 
data bytes. This list is referred to as 
the DISK ALLOCATION MAP in the CP/M 
documentation, and it is used by BDOS to 
find the ordered list of sectors 
comprising the file pointed to by the FCB. 
After a great deal of analysis, I 
discovered that each position in this 
table represents a block of 8 sectors. 
Block numbers 00 and 01 contain the 
directory as I listed above, but blocks 02 
and up point to data files. BDOS also uses 
another byte in the FCB that keeps track 
of the total number of records (sectors) 
in each file in the event that not every 
Sector in a block is used. For example, if 
a file needs only 3 sectors, then the 
other 5 in the block pointed to by the 
disk allocation map are unused. This 
phenomemon is the same as that discussed 
above in reference to unused sector space. 
By comparing actual file size with total 
available space, CP/M has a means of 
managing disk space for small file 
lengths. Since there are 16 positions in 
the disk allocation map, then the 
following figures can be calculated for 
the maximum storage capacity for one file 
pointed to by one FCB: 


16 blks * 8 sectrs/blk * 128 bytes/sectr - 
16 384 bytes 


When a FCB becomes full, the byte 
containing the number of records becomes 
equal to 80H (128 decimal) and then BDOS 
creates (during write functions) or 
Searches (during read functions ) for a new 
FCB with the same file name as before. 
This new FCB is called an extension and 
BDOS is able to create or read up to 15 


extensions. Thus in CP/M ver. 1.4, files 
can be created that are 16 * 16 384 or 262 
144 bytes in length. Of course as 
calculated above, this is impossible 
because there are only 256 256 bytes of 
Storage on a single density disk. The 
total amount of storage available for data 
is calculated below: 


sustem tracks) 


248 576 bytes 


Since each block in a disk access 
table points to 8 sectors, then this total 
length in bytes is 1024 (128 x 8). When 
files are shorter than 1024 bytes or the 
last block of a file is not full, then 
this unused space will be wasted. If 
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however, there were 64 files each a 
maximum of 16 384 bytes in length as 
calculated above, then total storage would 
appear to be 64 * 16 384 or 1048 576 
bytes. (The reason why I chose the number 
64 is that the total length of a FCB as 
found in the directory is 32 bytes, thus 
each sector can contain 128/32 or 4 FCBs. 
16 sectors in the directory * 4 gives 64.) 
This is of course quite a bit more than 
the disk can store. Actually, the total 
storage space is determined by the fact 
that CP/M 1.4 supports 243 blocks, and 
since blocks 00 and 01 are used by the 
directory, the maximum storage ona disk 
when there is no unused space is 241 * 
1024 or 246 784 bytes. Finally, the CCP 
command STAT will give the unused space on 
a disk. This is given in 1000 byte 
increments thus a disk with no files in 
the directory will appear to have 241K 
(K=1000) instead of 246K and the size of 
individual files will given to the nearest 
1000 above the actual size. For example, 
STAT will give the size of a file of 256 
bytes (2 sectors) as 1K, (the full block). 


In conclusion, I have included a 
great deal of information that may or may 
not prove useful at this time to all users 
of CP/M, but hopefully, it will help you 
to expand your knowledge of file structure 
and management. In next month's article, I 
will get into more practical matters. I 
hope to cover CCP command functions, list 
utilities and there basic functions, and 
Space permitting, begin to discuss BIOS 
functions and I/O handler modifications. 
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LINEAR 
PROGRAMMING 


Continued from page 27 
ITERRTION 3 OF TEST 


LIST & X ARRAYS 


1 ROHL 2 2. 14286 

2 ROW2 3 3. 57143 

3 ROWS 4 2. 14286 

4 M+1 8 12.8571 

5 M+2 9  -8. 00000045 


END OF PHASE 1 FOR TEST AFTER 3 ITERATIONS 


LIST & X ARRAYS 


1 ROWS 2 2. 14286 

2 ROW2 3 3. 57143 

З ROWS 4 2.14286 

4 Мы 8 12.8571 

5 мг 9-9. (90406643 
START PHASE 2 
ITERATION 1 OF TEST 
LIST & X ARRAYS 

1 RüÜüHi e 2. 508008 

2 RÜMZ 3 2. SAHAG 

3 ROWS 1 2. 50000 

4 Mi з 15. 05688 

5 ма 9 O. BAGGUEHL2 


END OF PHASE 2 FOR TEST AFTER 1 ITERATIONS 


LIST & X ARRAYS 


1 кома 2 2. 546808 

2 ROW2 3 2. 56908 

3 ROWS 2! 2. Seana 

4 M+1 8 15. 0640 

5 м+г Э а. aaaanai2 


TEST OF LINEAR ОРТ. , (GASS Р. 95; 


WRITE FOR 5-100 MICROSYSTEMS 


We are looking for articles on 
Serious microcomputer applications, 
reviews of software and hardware, and 
tutorials on S-100 based systems. Writing 
for S-100 MICROSYSTEMS is probably easier 
than you think. Remember, 5-100 
MICROSYSTEMS is devoted to the serious 
microcomputer user. Since most of the 
other microcomputer magazines cater to 
beginners and game-oriented users, an S- 
100 article will only appeal to a small 
fraction of the readers and may easily get 
lost between games, etc. junk. Therefore 
an article you write for S100-MICROSYSTEMS 
will get to the attention of the right 
people. 
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ADDRESSING THE CURSOR 


by 


Larry Stein 
Computer Mart of New Jersey 
497 Lincoln Highway 
Iselin N.J. 08830 


How to get more professional looking video I/O via software control in your BASIC 
programs. This is the first part of a two-part article. 


After you have gotten over the 
hurdle of writing your first program, 
you should be able to understand that 
the difference between good programs and 
great programs is not what they do, but 
how easily they allow you to do it!!! 


One of the things you can do to add 
quality to your program is to use the 
video screen to its fullest 
capabilities. This is possible if you 
own either a terminal with addressable 
cursor (e.g. Hazeltine 1500, 
ADM3A,etc.),or a computer with a memory- 
mapped video screen, such as a SOL,VDM, 
TRS-80, PET or APPLE. 


If your computer falls into the above 
categories, making the video screen look 
very professional and easy to use is a 
simple matter. This is done with a 
technique called "direct cursor 
addressing". 


To understand direct cursor addressing, 
first draw a picture of your video 
Screen on graph paper, allowing as many 
boxes horizontally and vertically as 
your screen contains. For example, if 
you own a 24 by 80 terminal, make sure 
your graph paper screen has 80 boxes 
across and 24 boxes down. Number the 
upper-left hand box 1,1 and the lower- 
right hand box 80,24. The upper-right 
hand box will therefore be 80,1 and the 
lower-left hand box will be 1,24. These 
numbers represent the column and row on 
your video screen. The 80 squares 
across the top are numbered 1 through 80 
and the squares down the left are 
numbered 1 through 24. Therefore, any 
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box on the video screen can be 
identified by giving its coordinates: 
first the column (horizontal position) 
then the row (vertical position); i.e. 
when the cursor is at the 15th column 
across and the 9th row down, the cursor 
is at (15,9). 


In the illustration at the top of 
the next page the screen columns are 
numbered from 1 to 80 and the video 
Screen rows are numbered from 1 to 24 
corresponding to an 80 by 24 terminal 


Screen. Also, the following characters 
in the above layout are at the 
designated addresses. 
ADDRESS 
CHARACTER row column 
a 3 18 
b 6 3 
c 18 72 
d 9 45 


Now we are ready to put the direct 
cursor addressing scheme to work in our 
program. I will use the BASIC language 
for all examples and the Hazeltine 1500, 
Lear Siegler ADM-3A and SOL terminal 
computer for all the examples. If you 


have another terminal or computer, refer 
to the manual for the direct cursor 
addressing commands. Usually, in order 


to move the cursor around the screen, 
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you will supply some special characters 
and then the column and row of the 


COLUMNS 


11111111112222222222333333333344444444445555555555666666666677777777778 
12345678901234567890123456789012345678901234567890123456789012345678901234567890 
lIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
A2XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
J3XXXXXXXXXXXXXXXXXaXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
6XXbXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
7XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
8XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
OXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXQXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
lOXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
llXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
l2XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
l3XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
l4XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
l5XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
l6XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
l7XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
l18XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXOXXXXXXXX 
lOXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
20XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
21XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
22XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
23XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
24XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


followed by the column and row. 
terminal computer 


The SOL 
requires the receipt 


location where you want the cursor to be 
placed. 


The Hazeltine 1500 terminal 
requires the receipt of a lead-in 
character followed by an escape followed 
by the column and row. The Lear Siegler 
ADM-3A requires the receipt of a lead-in 
character, followed by an equal sign 


of a lead-in character followed by the 
character 2 followed by the column 
followed by another lead-in character 
followed by the character 1 and then the 
row. 


The following table tells what 
decimal characters have to be sent to 
the 3 different terminals to place the 
cursor at the designated row and column. 


characters: lst 2nd 3rd 4th 5th 6th 
Hazeltine 1500 | 126 | 17 | column | row | 
Lear Siegler ADM-3A | 27 | 61 | row | column | 
SOL terminal computer | 27 | 2 | row | 27 | 1 | column | 
One additional factor in hand position is 0,0. The 1500 and the 


determining the row and column has to be 
considered. The terminals described 
here reference the screen relative to 
zero, which means that the upper left 
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ADM-3A use a special formula to 
determine what character is output for 
the row and column to be addressed. 
Rather than go over the formula here, if 
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you own either of these terminals, refer 
to the manual, or look at the sample 
program there to see the technique used. 


Now in order to use what we have 
learned about direct cursor adressing, 
let's look at a sample program written 
in Microsoft BASIC version 4.51. This 
program includes routines for the pre- 
viously mentioned terminals and asks 
which one is being used. The program 
then sets a software switch to use the 
proper routine for that terminal. 


In this program, the variable x is 
used to designate the column (X- 
coordinate) and the variable Y is used 
to designate the row (Y-coordinate) on 
the screen. If we want to position the 
cursor at screen location column 15 and 
row 7 we would set X=15 and Y-7 and then 
GOSUB to the cursor subroutine. The 
cursor subroutine will position the 
cursor at (15,7), leave it there and 
return to the BASIC program where we 
will display something. 


One special function is reserved 
for clearing the screen. If we set X=0 
and Y=0 this will tell the cursor 
subroutine to clear the screen. 


In the example program, line XXXX 
sets X and Y to 0 and then does a GOSUB 
to XXXX to clear the screen. The next 
statement in the program sets Y to 11 
and X to 14 and does a GOSUB to the 
cursor routine. On returning, the BASIC 
program prints the program title which 
will appear on the screen at column 14 
and row ll. 


Following the rest of the program, 
you can see that on all screens which 
require data input, the hoadings of the 
fields to be filled in are first printed 
on the screen and then the cursor is 
placed next to each field name for data 
input. This allows the user to see all 
of the fields required before entering 
any data. Seeing the questions before 
having to supply the answers is always 
of benefit!! If you have any doubts as 
to the value of this kind of screen for 
data input purposes, just type in the 
sample program and run it. 


The non-computer data entry 
operator will find it invaluable to use 
this kind of screen and there is no 
limit to the aids your program can 
provide. One of these operator aids is 
showing the field delimiters for the 
data being entered on the screen as in 
Statement XXXX. Another valuable aid is 
to re-display the data that was just 
typed in, edited into the correct 
format. Just re-displaying the data 
will help when the operator has deleted 
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any character in the field and BASIC has 
displayed the deleted characters 


surrounded by the familiar N N. When 
you re-display the data, only the data 
will be printed on the screen as in 
statement XXXX. 


I hope that this example and 
exercise will enable you to use your own 
imagination to make more use of the 
hardware you have at your fingertips. 
This is by no means a complete expose of 
all of the things that can be done with 
your screen on your microcomputer, but 
it will start you on your way away from 
the thinking that you have a teletype 
machine or other hardcopy device that 
can only scroll up the screen. 


In the next issue of S-100 MICRO- 
SYSTEMS I will discuss the following 
programs in detail. 


If your computer has a video screen, 


USE ІТ!!!!! 


CAT 100 GRAPHICS 

GRAPHICS 
The original 256-color imaging system with 
high resolution video FRAME GRABBER 


for the S-100 bus. 


Capture and digitize a video framein 1/60 ofa 
second. Select the best resolution for your 
application, from 256 to 1280 pixels „Я 
per TV line. Display your digitized 

or computer processed image 

with 256 gray levels or 256 

colors on standard 

B&W, NTSC or RGB 

color TV monitors. 


ш ® Highest possible quality 480x512x8 digital video 
image presently available on the market 

* Input capability from TV camera or other sources 

* Variety of synchronizatjon choices 

* 2 selectable video A/D conversion circuits 

* Choice of 1, 2, 4, 8, 16 or 32 bits per pixel 

• 32K-byte image memory on the basic system 

* 32, 64, 128 & 256K byte system capacity 

® Lightpen input 

* Photographic trigger control input 

® Software selectable system parameters 

Й 9 Interfaces for TRS-80 and other processors 

9 Comprehensive line of accessories, monitors and 
support software 


SEND FOR FREE CATALOG 


480x512 Computer-generated 


DIGITAL GRAPHIC SYSTEMS 
441 California Ave., Palo Alto, CA 94306 415/494-6088 
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10 REM ******!*** PROGRAM NAME "LABELS" 11/6/79 ****«*»»»*exwa 830 IF I-0 THEN 850 
20 REM О О III Kol ek III ТУРИСТИ 840 Y-N:X-114M:GOSUB 2160 
30 REM * * 850 GOSUB 2650 
40 REM * PROGRAM FOR DISKETTE LABEL PREPARATION zi 860 IF IN-13 THEN M=WD:GOTO 950 : REM CARRIAGE RETURN 
50 REM * є 870 IF IN=BS THEN 1800 : REM MOVE CURSOR TO THE LEFT 
60 REM М III РРА III er 880 IF IN=FS THEN 1800 : REM MOVE CURSOR TO THE RIGHT 
70 REM foto III III III III III IOI OORT IOI IOI ITT I tt 890 IF IN=DT THEN 1990 : REM DELETE CHARACTER 
80 REM > å 900 IF IN=IT THEN 2070 : REM INSERT CHARACTER 
90 REM * INITIALIZATION ROUTINE FOR SPECIFIC TERMINALS * 910 I-0 
100 REM * * 920 MIDS(LS,M,1)=INS 
110 КЕМ яж КАККАН III III I it tet 930 PRINT INS; 
120 CLEAR 2000 940 IF M=WD THEN 1900 
130 DIM A$(2) : REM DUMMY DIMENSION SO THAT ERASE WILL WORK LATER 950 NEXT M 
140 PRINT:PRINT "THIS PROGRAM IS DESIGNED FOR ANY OF THE FOLLOWING:" 960 AŞ (N) =L$ 
150 PRINT:PRINT "1 - LEAR SIEGLER ADM-3A" 970 PRINT 
160 PRINT:PRINT "2 - HAZELTINE 1500" 980 NEXT N 
170 PRINT:PRINT "3 - SOL TERMINAL COMPUTER" 990 PRINT 
180 PRINT:PRINT "ENTER THE NUMBER OF THE ONE YOU ARE USING "; 1000 PRINT "DO YOU WANT TO MAKE ANY CHANGES (Y/N) "; 
190 Z$=INPUTS (1) :PRINT 25 1010 Z$=INPUTS (1) :PRINT 25 
200 IF 2$="1" THEN AM-1:WIDTH 80:GOTO 290 1020 IF Z$-"N" OR Z$-"n" THEN 1100 
210 IF Z$-"2" THEN AM-2:WIDTH 80:GOTO 290 1030 Y=0:X=0:GOSUB 2160 
220 IF 25-"3" THEN AM=3:WIDTH 64:GOTO 290 1040 GOTO 630 
230 GOTO 140 1050 REM ЕК ТТ EEE EE 
240 REM RRR REE ОРРРРРРСТЕУТТТ TTS (2 ETE EEE EEE 1060 REM а * 
250 REM * * 1070 REM * ROUTINE TO SAVE LABELS ON DISK * 
260 REM * BEGINNING OF PROGRAM - TITLE * 1080 REM * * 
270 REM * * 1090 REM røkt JJ Är 
ТЛ fe te dok door 1100 PRINT "DO YOU WANT TO SAVE THIS LABEL ON DISK (Y/N) "; 
290 y=0:X=0:GOSUB 2160 1110 ZS-INPUTS(1):PRINT 25 
300 Ys11:X«14:GOSUB 2160 1120 IF Z$-"N" OR Z$="n" THEN 1390 
310 PRINT "DISKETTE LABEL PREPARATION PROGRAM - NOVEMBER 6, 1979" 1130 PRINT "ENTER THE DRIVE ON WHICH LABEL IS TO BE STORED (A,B,C,D) "; 
320 Y#15:X=32:GOSUB 2160 1140 DS=INPUTS (1) :PRINT D$ 
330 PRINT "LARRY STEIN" 1160 55 peter кешімен 
340 FOR 2-1 ТО : : 2091 
340 FOR 2-1 ТО 1000 NEXT Z : REM SET FOR DELAY OF TITLE ON SCREEN 1170 Fs=DS4+"4, LAB" 
360 IF BG-1 THEN 460 1180 PRINT +: 
370 PRINT “ENTER THE CHARACTER YOU WANT ТО USE FOR BACKSPACE "; 
380 GOSUB 2650:BS-IN:PRINT CHR$ (BS) 2 1400 aeta 
390 PRINT "ENTER THE CHARACTER YOU WANT TO USE FOR FORWARD SPACE "; m NTER A FILE NAME *** NOT *** IN THE ABOVE LIST" 
400 GOSUB 2650:FS-IN:PRINT CHRS(FS) CE 1220 LINEINPUT "USE FILE МАМЕ ONLY, NO EXTENSION ";25 
410 PRINT "ENTER THE CHARACTER YOU WANT TO USE FOR INSERTING "; 1230 FPSDÉTISES LAB" 
420 GOSUB 2650:1T-IN:PRINT CHR$(IT) 1240 OPEN "O",l,F$ 
430 PRINT "ENTER THE CHARACTER YOU WANT TO USE FOR DELETING "; 1250 PRINT#1,WD$+","+LNS 
440 GOSUB 2650:DT-IN:PRINT CHRS(DT) ' 1260 FOR N=1 TO LN 
450 BG-1 150 PRINT#1,A$ (N) 
460 PRINT "DO YOU WANT TO USE A PREV "i NEXT N 
470 Z$-INPUTS (1) :PRINT 25 sins ЖКМ ^t 1290 CLOSE 
480 IF 25-"Ү" OR Z$="y" THEN 3100 1300 PRINT 
490 PRINT "DO YOU WANT STANDARD PRODIGY LABELS (Y/N) "; 1310 F$=D$+"*.LAB" 
500 Z$-INPUT$(1):PRINT 25 ч 1320 FILES FS 
510 IF 25-"Ү" OR Z$="y" THEN 2750 1330 PRINT 
520 REM МА III Dm 1340 REM ы III III III III IIIT se IIT TO I TOR fk tk 
530 REM * * 1320 REM * * 
540 REM * s REM * ROUTINE TO ALIGN * 
250 М 2 СЕТ LABEL PARAMETER ы 1370 REM * GN LABELS F 
560 REM  ****4X** ккал ARERR RARER EERE EERE REE ER ERR ж жака жаа а ж. 1380 REM #ARRARRRRRARRERERRRR ааа жж жаа RHEE R EERE RRR RE REE 
570 GOSUB 2460 1390 PRINT "READY THE LABELS IN THE PRINTER AND PRESS RETURN "3 
580 REM FORO ss OOOO OR IOI III ICH tote te 1400 Z$-INPUTS (1) :PRINT 
590 REM * v 1410 pater "DO УОП WANT то ALIGN THE LABELS (Y/N) "; 
600 REM * ISP н Z$=INPUT : PRINT 2 
500 МИ + DISPLAY LEFT SIDE OF SCREEN å 1430: IPS2"N7 OR бело oi 1650 
620 REM УКИНЕ IIIT III TIT TTT OR RRR RK 1440 FOR N=1 TO LN 
630 Y=0:X=0:GOSUB 2160 1450 LPRINT STRING$ (WD,88) 
640 PRINT 1460 NEXT N 
650 FOR N=] TO LN 1470 FOR N-1 TO SK 
660 Y-N:X-1:GOSUB 2160 pres DERIT 
670 N$=STRŞ (N) :ІЕ LEN(N$)=2 THEN N$=" "+N$ 
680 PRINT " "55; " ". „nyu 1500 PRINT "DO YOU NEED MORE ALIGNMENT (Y/N) "; 
eoo Reie a ІНЕ $;" J';TAB (WD*14) 7") 1510 Z$-INPUTS(1):PRINT Z$:GOTO 4430 ("7 "Y 
700 REM РТРТТТТТРТГГҮТТТТТТТТТТТТТТТТТТТТТТТТТТГТТТТТТТТТТТТГГЯ 2220 POM ыы ыы ыы ыы ыы 
710 REM * * * 
720 REM * GET LABEL INFORMATION * 2240 FEM 2 ROUTINE TO PRINT LABELS * 
730 ВЕМ * * 220 REN * 
740 REM РРА 1560 КЕМ АОДС О IC III III IIIT IOI ТҮҮЛҮ? 
750 FOR Mel 45 LE 1570 FOR M=1 TO NB 
760 Y=N:X=12:GOSUB 2160 1580 FOR Nel TO LN 
770 PRINT AŞ (N) 1590 LPRINT A$ (№) 
788 weet n іе кат, 

> =1 TO SK 
oe ge sa mer 

XT N 

810 L$=A$(N) 1640 NEXT M 


820 FOR M=1 TO WD 


8€ 


SW3LSASOHOIW 001-5 


1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


PRINT "DO YOU WANT TO PRINT MORE LABELS (Y/N) "; 
Z$=INPUTS (1) : PRINT 25 


IF Z$="Y" OR Z$-"y" THEN 1700 

STOP 

GOTO 1680 

PRINT "DO YOU WANT TO PRINT THE SAME LABEL (Y/N) "; 


Z$=INPUTS (1) :PRINT 25 

IF Z$="N" OR Z$="n" THEN 350 

GOSUB 2570 

GOTO 1000 

REM d ck RRR RRR RRR RRR РРА 
REM * * 
REM * ROUTINE TO MOVE CURSOR RIGHT AND LEFT $ 
REM * * 
|ИВО СС ЕРЕ РРА РО РА 
1=1 

IF IN-BS AND М[|1 THEN M-M-1:GOTO 840 

IF IN-FS AND M[|WD THEN M=M+1:GOTO 840 

1-0 

GOTO 840 
|ВЕРА Ни 
REM * * 
REM * ROUTINE TO HANDLE CURSOR AT END OF FIELD * 
REM * * 
REM do СС С РО TO КАЯКА АЛАКАННАН ЕЕ 
GOSUB 2650 

IF IN=BS OR IN=FS THEN I-1:GOTO 840 

IF INS=CHR$(13) THEN 950 

GOTO 1900 

ола 44 494 CC RIO IORORORGCROOIOUOROOROROIOAOORGRGGIOROO IIIT Ri Tot КАЯ 
REM * * 
REM * ROUTINE TO DELETE A CHARACTER Е 
REM * + 
REM * **4** X BRT TR RT НИНА TOR TOR TOTTI TOR TK GRO IG RU 
MIDS (L$ ,M,WD-M+1) =MIDS (L$ ,M+1,WD-M)+" " 

PRINT MIDS[L$,M,WD-M*1) 

GOTO 840 
омы AER ARR RR ORO 
REM * * 
REM * ROUTINE TO INSERT A CHARACTER * 
REM * * 


REM d de deo RRR RRR RRR IRR EER RRR ERE OR OR RO Я 


Ll$2MIDS(L$,M,WD-M) 


MIDS (L$ ,M,WD-M+1)=" "4115 

PRINT MIDS (L$,M,WD-M+1) 

GOTO 840 

REM e diee e e e dee deo ee eee ee deed dee d d dede e dede eo e 
REM * * 
REM * UNIVERSAL CURSOR POSITIONING ROUTINE * 
REM * * 
REM *****d d n d d e e ee e oe de o HR eR RH He e e e de e e e АИА АА 


ON AM GOTO 2220,2360,2290 


REM ***5*X*44 WA 444 44A ERORARARARRARETAERRARTERERERATARTERTERRRRR YER 
REM * * 
REM * CURSOR POSITIONING FOR ADM-3A TERMINAL * 
REM * * 
от ERA лаана EERE ERE REE RRR RRR 
IF Ү+Х=0 THEN PRINT CHR$ (26); : RETURN 


PRINT CHRS (27) *CHR$ (61) +CHRS (31+Y) +CHR$ (31+X) ; : RETURN 

REM ОС АС РРА РО РАНИ РРА РРА 
REM + * 
REM * CURSOR POSITIONING FOR THE SOL TERMINAL COMPUTER * 
REM * * 
REM *RRARARARARARR ERR ekke kN 


IF Y*X-0 THEN PRINT СНЕ (11); :RETURN 

PRINT CHR$ (27) +CHRS (2) *CHR$ (Y-1) +CHRS (27) +CHRS (1) +CHRS (X-1) ; 
REM dx IORI III III II IOI ICU IOI II III E OI tte 
REM * * 
REM * CURSOR POSITIONING FOR HAZELTINE 1500 TERMINAL * 
REM * * 
REM **X***444 444 СС СО REAR EERE RRR RERO ORIGO ROGER 
IF Y+X=0 THEN PRINT СНЕ5 (126) +СНЕ5 (28) ; : RETURN 

IF X[32 THEN X-X496 

Y=Y+96 

D*D*1:IF D=5 THEN D=0:PRINT 

PRINT CHR$ (126) +CHR$ (17) «CHR$ (X-1) +CHRS (Y-1) ; : RETURN 


REM RRR ы RRR ERR RRR ER ERE RRR RRR 
REM * а 
КЕМ * ROUTINE TO DETERMINE LABEL SIZE * 
REM * * 
REM ***NW4444 AX ЕОС GORGE AGAR AURORA 


: RETURN 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 


LINEINPUT "ENTER LABEL WIDTH (IN CHARACTERS) ";WD$ 
WD-VAL(WD$) 

LINEINPUT "ENTER NUMBER OF PRINT LINES PER LABEL ";LN$ 
LN=VAL(LNS) 

ERASE A$ 

DIM AS(LN) 

FOR N=1 TO LN 

AS (N) =STRINGS (WD, 32) 

NEXT N 

LINEINPUT "ENTER NUMBER OF LINES TO SKIP BETWEEN LABELS ";SK$ 
SK=VAL (SKS) 

LINEINPUT "ENTER TOTAL NUMBER OF LABELS TO BE PRINTED ";NBS 
NB=VAL (NBS) 


RETURN 

REM ыы Ås er 
REM * * 
REM 2 ROUTINE FOR DIRECT INPUT FROM TERMINAL * 
REM * 
REM ым ыы ы LEE TT 
OUT 29,1 

WAIT 29,1,0 

IN=INP (28) 

INS-CHRS$ (IN) 

RETURN 

REM ***** ode oe eoe e e e e e e e e e e e e e e o o e e e e e e He e ТТ e KK 
REM * T 
REM * ROUTINE TO GENERATE PRODIGY DISKETTE LABELS * 
REM * * 


REM reker Är 
Y=0:X=0:GOSUB 2160 

PRINT "ENTER DISKETTE NUMBER XXXX";STRINGS (4,8); 

LINEINPUT DS$ 

PRINT "ENTER UNIT NUMBER 
LINEINPUT UNS 

PRINT "ENTER DATE (MM/DD/YY) XX/XX/XX";STRINGS (8,8); 
LINEINPUT DT$ 

PRINT "ENTER DEALER NAME 
LINEINPUT DL$ 

IF LEN(DL$)|30 THEN PRINT "DEALER NAME TOO LONG !":GOTO 2820 
ERASE A$ 

DIM A$ (8) 

AS(l)=""PRODIGY SYSTEMS, INC." 

А5(2)-" DISKETTE #"+DS$+" UNIT #"+UNS+" DATE "+DT$ 
А$(3)=" " 

А$(4)=" DEALER: "+DL$ 

А$(5)=" MASTER DISKETTE - RETURN IMMEDIATELY" 

AS (6) =" " 

AS (7) ="COPYRIGHT (С) 1979 PRODIGY SYSTEMS, INC." 

AS (8) =" ALL WORLDWIDE RIGHTS RESERVED" 

LINEINPUT "ENTER TOTAL NUMBER OF LABELS TO BE PRINTED ";NBS 
NB=VAL (NB$) 

WD$="40" 

WD=VAL (WD$) 

LN$-"8" 

LN-VAL(LN$) 

SK$="1" 

SK=VAL (SKS) 

GOTO 1390 

STOP 

REM *9 *»* d ДЕДЕ ОРЕСТ ТУ ТТ ТТ ЯА А А 
REM * * 
ВЕМ * ROUTINE FOR RETRIEVING LABELS FROM DISK * 
REM * * 
REM ПАЛАТА ТЕТ ДОТС ТТ ТТ 
PRINT "ENTER DRIVE ON WHICH LABEL IS STORED (A,B,C,D) "; 
Z$=INPUTS (1) :PRINT 25 

IP Z$["A" OR 2$|"D" THEN 3100 

F$=Z$+":*. LAB" 

PRINT 

FILES F$ 

PRINT: PRINT 

PRINT "ENTER A FILE NAME FROM THE ABOVE LIST" 

LINEINPUT "USE FILE NAME ONLY, NO EXTENSION ";25 
F$-2$*".LAB" 

OPEN "I",1,F$ 

INPUT41,B$,C$ 

WD$=B$ :WD=VAL (WD$) 

LN$=C$ : LN=VAL(LNS) 

ERASE AS 


XXXX" ; STRINGS (4,8) ; 


Continued on Page 54 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" ; STRINGS (30,8) ; 


THE 5-100 BUS— 
NEW VERSUS OLD 


by 


Sol Libes 


A comparison between the old Altair S-100 bus standard and the new IEEE S-100 bus standard. 


The IEEE S-100 bus standard is 
being voted on now and will no doubt be 
adopted by the time the next issue of 
[S-100 MICROSYSTEMS| appears in print. 
The complete proposed standard was 
reprinted in the previous issue of this 
magazine. 

There are approximately 200,00 
"old" 5-100 systems presently in 
operation. Many owners of these systems 
will be upgrading these systems with new 
CPU and peripheral boards to keep in 
step with the changing technology. How 
compatible will these new "IEEE S-100 
compatible" boards be with "old" 5-100 
mainframes? 


IEEE S-100 


l. Designed to support more 
(280) and 


powerful 8-bit 


The IEEE $S-100 standard has 
defined many bus lines which were not 
previously defined and redefined some 
pins. The roblem has been compounded 
by the fact that many 5-100 board 
manufacturers took liberties with the 
loosely defined Altair bus and created 
Some of their own pin functions. For 
example, pin 67 (now defined as 


PHANTHOM*) was used for as many as eight 
different functions by various 5-100 
Manufacturers, 

First of all 
difference between 
old S-100 bus and 
bus. 


lets compare the 
the features of the 
the new IEEE 65-100 
They are shown in Table 1. 


TABLE 1 
S-100 FEATURES 


16-bit (e.g. 78000) mpus 


2. Operating speed up to 
10MHz 


3. 16 Megabyte direct memory 


addressing range 
4. Up to 65K I/O ports 


5. Up to 16 Masters on bus 


6. 8 or 16-bit data transfers 


7. 10 vectored 
plus NMI 


interrupts 


8. Phantom 


9. Three more ground lines 


10. 3 undefined lines 


ll. 5 reserved for future 


use lines 
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ORIGINAL 5-100 


1. Designed specifically for 
8080 


2. Operating speed - 2 MHz 


3. 65K direct memory 


addressing range 
4. Up to 256 1/0 ports 
5. Single Master operation 
6. Only 8-bit data transfers 


7. 8 vectored interrupts 


19 undefined lines 


39 


The Data Bus 
The data bus has been changed so processors. This is shown in Table #3. 

can support both 8-bit 
16-bit word transfers. 
Table #2. 
either 


that 


and up to 65K of I/O ports for 16-bit 


and 


This is shown in 
Thus the user сап insert 
8-bit or 16-bit CPU cards into 


The Status Bus 
A comparison of the old and new 


the bus. In fact, the user can operate = А 
with both 8-bit and 16-bit processors оп status bus 18 shown in Table #4. The 
the bus via the DMA protocol БӘР ай number of lines has been reduced from 11 
Å : р to 9 functions. Three status signals 
explanation of the operation of the data сак 
bus refer to last months article оп the have been eliminated, namely STACK, RUN 
IEEE S-100 standard and SS (now used for ERROR*, RFU and 
А NDEF, respectively). One new status 


The Address Bus 


Signal has been added: SXTRQ*. Further, 
status signal labels now start with a 
lower-case "s" letter (except МИРТ) 
while the old S-100 bus used апа 
upper-case "S" lettr. Note also that an 


The address bus has been greatly active low state is nowwindicated by an 
expanded from 16 direct address lines "*" compared to the over-bar in the old 
for memory and 256 ports for $-100. This was done because few 
8-bit processors to 24 direct address printers can put ап over-bar above а 
lines up to 16 Megabytes of memory printed character. 

TABLE #2 
DATA BUS 
IEEE 5-100 OLD $-100 
16 lines 16 lines 
8-bit Master l6-bit master 8-bit master only 
8-Data In l6-Bidirectional 8-Data In 
8-Data Out & 8-Data Out 
8-Bidirectional 
or 
8-Data In 
8-Data Out 
TABLE 43 
ADDRESS BUS 
IEEE S-100 "OLD 5-100 
or 2 ines 
(А0-А23) (A0-A159) 

16 Megabytes memory 65K bytes memory 
directly addressable directly addressable 
I/O addressing I/O addressing 
up to 65K ports up to 256 ports 

(А0-А7 8 А8-А15) (A0-A7 or А8-А15) 
TABLE 44 
STATUS BUS 
IEEE S-100 Old S-100 
9 signals 11 signals 
Memory Read SMEMR SMEMR 
Op-Code Fetch 5М1 5М1 
Input SINP SIN or INP 
Output SOUT SOUT 
Write Cycle SWO* SWO 
Interrupt Acknowledge SINTA* SINTA 
Halt Acknowledge SHLTA SHLTA 
Memory Write MWRT MWRT 
16-bit data transfer SXTRO* 
deleted 
STACK - stack address on bus 
RUN - CPU in run mode 
SS Single step operation 
40 
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Control Output Bus 
The control output bus is shown 


in Table #5. These signals determine 
timing and movement of data during a bus 
cycle. Two lines have been eliminated; 
PWAIT and PINTE (now defined as RFU). 
One new signal has been added; pSTVAL 
(previously this line was used for the 
Øl clock). A lower case "p" is now used 
instead of the upper case "P" to denote 
a control line. 


Control Input Bus 

The control input bus is 
compared in Table #6. These signals 
synchronize slave to master operation. 


Two new lines have been added; NMI* and 
SIXTN* previously these lines were not 
defined). 


Vectored Interrupt Bus 

This us 15 compared in Table 
#7. These signals are used in 
conjunction with the INT* signal and a 
vectored interrupt controller circuit. 
Two new signal lines have been added 
(using previously undefined lines). 


TABLE #5 
CONTROL OUTPUT BUS 


IEEE S-100 
5 lines 


Indicates start of new pSYNC 
bus cycle 
Read Strobe pBIN 
Write Strobe pWR* 
Hold Acknowledge pHLDA 
added 
Address and Status pSTVAL 


Old S-100 


PSYNC 


PBIN 
PWR 
PHLDA 
deleted 
PWAIT-CPU in WAIT state 
PINTE-CPM interrupt flip- 
flop enabled 


TABLE #6 
CONTROL INPUT BUS 


IEEE S-100 
6 lines 


Used by slaves to sync master RDY 


Speed to slave speed 
Used by front panel to stop 
or single step master 
Interrupt request to master 
Used by temporary master to 
request control of bus 
new lines 


Nonmaskable interrupt request NMI* 
SIXTN* 


Response to sXTRO* 


Old S-100 


XRDY XRDY 
INT* PINT 
HOLD* PHOLD 


TABLE #7 
VECTORED INTERRUPT BUS 


IEEE S-100 
10 lines 
VIO* VIO 
Inputs to an interrupt con- VIl* VIl 
troller circuit which arbi- уї2* VIZ 
trates among 8 inputs and VI3* VIS 
asserts INT*. VIA4* 714 
VIO has highest priority VI5* VI5 
VI6* VIO 
VI7* VIT 
new lines 
Asserted when error occurs ERROR* 
Asserted when impending PWR FAIL* 


ower failure occurs 
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Utility Bus 


lines to decrease the impedance of the 
utility lines, compared in ground circuit. Further, the location 
have reduced in number from 34 of the ground lines affords a small 


This has occurred primarily improvement in shielding between lines. 


the use of many of the 19 
previously 
clock signal was deleted since it was 
used and has no meaning for most 
microprocessors which use only one clock 


"undefined" lines. The #1 


The PROT, UNPROTECT and PS 


DMA Control Bus 


This bus, compared in Table #8, 


functions have fallen into dis-use by has been greatly expanded from 4 to 8 
present memory board manufacturers. The lines, 


to allow for multimaster 


switch disable (SSW-DSB) has operation. These lines (DMAO through 
fallen into dis-use and has DMA3) were previously undefined. The 
been replaced by GND and RFU lines. DMA control lines are used in 
the other hand the ground conjunction with the HOLD* and pHLDA 
lines have be increased from 2 to 5 lines. 
TABLE #8 


DMA CONTROL BUS 


IEEE S-100 
8 signals lines 
Address disable ADSB* 
Data Out disable Disable PM DODSB* 
Status disable Signal drivers SDSB* 
Control disable 
new lines 
arbitrate among up to 16 masters 
encoded priority requests are 
asserted & lines contain pri- 
ority no. of highest requestor 


TABLE #9 
UTILITY BUS 
IEEE S-100 
22 lines 
Clock signal CLOCK 
Master clock signal 2 
Resets all masters RESET* 
Resets all slaves SLAVE CLR* 
Power-on clear POC* 
Overlays slaves PHANTOM* 
Not defined NDEF(3 lines) 
Reserved for future use RFU(5 lines) 
18V (2 lines) 
+16V 
-16V 


GND(5 lines) 


Old S-100 
4 signal lines 


Old S-100 


NDEF(19 lines) 


+8V (2 lines) 

+16V 

-16V 

GND(2 lines) 
deleted 
1 

PROT 

UNPROT 

PS - protect status 

SSW-DSB 
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PRODUCT REVIEW 


THE CGS-808 INTELLIGENT 
COLOR GRAPHICS BOARD 


by 


Jon Bondy 
Box 148 
Ardmore, Pa. 19003 


Although most of the energy which I 
have applied to my computer system has 
been towards such mundane things as CRT's 
and printers, my main interests in having 
a home computer center around graphics and 
music. A few high density graphics boards 
have been available for the S-100 bus for 
some time (like the Matrox board), but 
they have been for the most part both 
inflexible and more expensive, so I 
devoted time to other projects and waited 
for the arrival of an inexpensive grahics 
board. In the fall of 1979, an ad for an 
Intelligent Color Graphics board appeared 
in BYTE from a firm of which I had never 
heard, called Biotech Electronics. They 
offered a kit for $99 which included the 
more expensive IC's along with a PC board 
and instructions. Somehow, this one 
seemed worth the risk, so I purchased it. 

The board, called the CGS-808, uses 
the Motorola 6847 CRT controller chip to 
provide a wide range of low and high 
desnity color graphics, along with alpha- 
numeric characters іп a 16 by 32 character 
format. It employs an on-board 8085 
processor to do the graphics bookkeeping, 
allowing the main processor in the system 
to attend to other matters. Up to two on- 
board 2708 (or 2716) EPROMS are used to 
Store programs which make the CGS-808 an 
intelligent peripheral device. Unlike 
some other graphics boards, the video re- 
fresh memory resides entirely on the CGS- 
808, making additional purchases of memory 
boards unnecessary, and leaving the 
address space of the main processor free 
for other uses. You can set up the 6847's 
modes, clear the screen, draw a dot, draw 
a line, and read or write the graphics 
refresh memory with simple commands from 
the central processor using their Firmware 
Pack I, and their other Firmware packages 
allow more complex graphics to be 
performed by the on-board 8085. The 8085 
and the 6847 take turns accessing the 
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video refresh memory, so there is no 
"snow" on the graphics screen while it is 
in use. 

My primary interest in graphics is to 
do high density line drawings, and the 
CGS-808 provides enough density to start 
to do some serious work in its highest 
density mode with 256 by 192 dots on the 
Screen. At this density, you give up the 
range of colors which are offered with 
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LIST SPECIAL 
PRICE CASH 
PRICE 


Godbout 4 MHz Econoram 
VIIA-24K Unkit 


S.D. Systems SBC-100 Single 
Board Computer Kit 


SSM CB-2 Z-80 CPU Kit 
Morrow’s Thinker Toys 


419.00 358.00 


295.00 
210.00 


252.00 
179.00 


Discus ІІ D Dual Density 
8" Disk Drive System 


Anadex DP 8000 Printer w/U/L 
case 


1,149.00 982.00 


995.00 850.00 


Subject to Available Quantities e Prices Quoted Include Cash Discounts. 
Shipping & Insurance Extra. 
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S.D. Systems, Cromemco, Ithaca Intersystems, North Star, 
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S-i0Q,inc. 


7 White Place 
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. . . 201-382-1318 
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lower density modes (from 64 by 32 display 
elements on up), but I intended to use the 
board with a black and white monitor 
anyway, so this was not a great loss to 
me. 

The bare board kit arrived quickly 
and consisted of a set of Hardware and 
Software manuals, the PC board, and four 
ICs (8085, 6847, 2708 and 1372). Biotech 
does not warrantee these ICs because they 
claim that they may be damaged by static 
by an inexperienced user. I have never 
had problems with static so far, and I 
doubt that this would be as large a 
problem as Biotech claims. In any event, 
most other manufactureres will replace 
ships which prove to be defective, whether 
they are MOS or not. The only defective 
chip which I found in the entire process 
of building my kit was a 74LS74 which was 
purchased from another vendor. Total 
parts cost for the board (aside from the 
kit) was about $150. 

The board was as well made as I have 
seen in Hobby products, with IC locations 
and types silk-screened over a good solder 
mask. Complete discussions of board 
theory (both hardware and software) were 
contained in the manuals, along with step- 
by-step assembly instructions and sample 
programs. The discussions on board use 
and the 6847 were at times somewhat 
cryptic, but all of the information is 
there, and the sample programs were very 
useful. One surprise here was that their 
section on debugging the board was four 
pages long, since many vendors omit that 
section entirely. Complete schematics for 
the board were included, but there was no 
listing of the Firmware EPROM, so that 
when the board did not work immediately, 
it was a bit difficult to determine if it 
was a software or hardware problem. 
Biotech has informed me that a complete 
listing of the ROM will be made available 
at a nominal charge by the time this 
article is published. 

Acquiring the hardware to complete 
the kit took a bit longer than had been 
anticipated, with some of the 74LS300 
series ICs being the major problem. The 
Hardware manuals list the parts by schem- 
atic resistor, capacitor and IC number 
first, and then provides a summary for 
parts ordering, which was very useful. 
The RAM on the board consists of 2114s, so 
they were plentiful and reasonably priced. 

Before I discuss my debugging 
problems, let me describe how the main 
processor communicates with the CGS-808. 
The CGS-808 reserves four input andfour 
output ports for communication between the 
central processor and the on-board pro- 
cessor, and these ports can be placed 
anywhere in.the range of 256 port 
addresses as long as they start ona port 
number which is a multiple of four. Of 
the four ports, only two are actually used 
by the board, with two unused. It turns 
out that it is possible to use one of 
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these unused ports for an interesting 
purpose, which I will get to later. Let's 
assume that we have set the ports up to 
start at port-0. 

The two ports which the CGS-808 nor- 
mally uses serve different purposes. 
Writing to port-0 serves to send both OP 
codes and parameters to the 8085. The OP 
codes are numeric values which indicate 
how the parameters which follow are to be 
processed, and they consist of 0 (clear 
screen), 1 (set mode), 2 (plot point), 3 
(draw line), 4 (alphanumeric/semigrahic 
characters), 5 (read screen memory) and 6 
(write screen memory). The parameters 
vary with each of the OP codes as 
appropriate; for instance, the draw line 
OP code (3) requires starting X and Y 
coordinates, ending X and Y coordinates, 
and a line color. 

When the OP code and its associated 
parameters have been sent to port 0, 
writing any value at all to port-l starts 
the 8085 off executing the requrested 
operation. the data sent to this port is 
immaterial, and is ignored. 

Reading port-0 provides you with some 
Statusinformation such as whether an 
invalid OP code has been received, whether 
the board is so confused by the sequence 
of data that you should reset it (hardware 
reset), whether it thinks it is imputting 
parameters or not, and whether it is ready 
for a new command or is still executing 
the previous one. If you are executing a 
Screen memory read, you read the screen 
data from this port also. 

Reading port-l provides some more 
status, including whether the most recent 
OP code or parameter has been accepted by 
the 8085 yet or not, and whether there is 
output data in the data register (port-0) 
during a screen memory read operation. 

When the board is first powered up, 
the 8085 is reset by on-board circuitry 
and it then sets the board's mode to high 
density graphics and clears the screen. 
My board did this when powered up, so I 
knew that the ROM, 8085, and video chips 
were functioning properly. Since the 
Screen was an even shade of grey, it 
seemed likely that the refresh memory ws 
working properly also, so I was encourag- 
ed. Unfortunately, I could not get the 
proper status bits to show up on port-0, 
So I suspected that the Biotech ROM was in 
error; perhaps if I had known the company 
better, I would not have wasted my time in 
this particular direction. 

At times the video board would 
Spontaneously give me a "light show" for 
minutes on end, while at other times it 
would do nothing at all no matter what I 
did with the ports. After setting up some 
Software loops to write to ports 0 and 1 
repeatedly, it became clear on the 'scope 
that not all of the port writes were 
setting through to the video board. I 
isolated it to a flip-flop which was not 
functioning properly, and the board worked 
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as soon as a new 7474 was installed. 

I now came to another problem area; 
one which I had not expected. A diagonal 
line drawn across the screen was jagged 
and uneven. After some experimenting, it 
turned out that all of the odd pixels 
(picture elements, or dots) were less wide 
than the even pixels. Again, I first 
thought that it was a software error (in 
the line drawing algorithm) on Biotech's 
part. I tried to write a bit pattern into 
the refresh memory to see if the problem 
would also appear with this simple input. 
When it continued to produce pixels of un- 
even Size, I assumed that it was a 
hardware problem. A call to Biotech 
revealed that sometimes the duty cycle of 
the color burst oscillator was not exactly 
50$, which caused some pixels to be 
clocked onto the screen more rapidly than 
others. The former pixels would then be 
less wide than the latter. Putting a 10K- 
ohm resistor from pin 3 of the 1372 to 
ground fixed than problem. 

During the debugging phases, the CGS- 
808 had often thought that it needed a 
reset because the sequence of OP codes and 
parameters was not what it had expected 
(either because of a hardawre problem or 
my misunderstanding of the way the board 
worked). Unfortunately, I was debugging 
the board using my UCSD PASCAL Monitor 
program (which will appear in the next 
issue of this magazine), and pressing 
reset caused me to have to reboot. It 
Seemed that if the software was aware that 
a board reset was required (see the status 
bits described for port-0 above), it 
should also be able to reset the board in 
Software. What was required was a way to 
generate a low (0 volts) signal on the 
board on command from the central 
processor. 

I looked for I/O ports from which I 
could steal a signal, but they are all 
'smart' ports which hold the data inside 
themselves until strobed by the 8085, and 
so could not be used. There were, 
however, strobe signals for each of the 
two ports which the CGS-808 had reserved 
but not used, and these were normally high 
but went low when the port was addressed. 
I connected the strobe for writing to port 
2 (U48 pin 5) of the processor's reset 
circuitry, but it did not work. I then 
removed the 3.3 microfarad reset capacitor 
(C22) so that my short strobe would not 
have to fight the capacitor, and the trick 
worked. I now can reset the board by 
writing to port-2. 

I did not want to lose the power-on 
reset and the ability to clear the board 
from the front panel reset switch, so I 
installed a diode between the S-100 bus's 
reset line and the 8085's reset circuitry 
So that a board reset would not cause a 
System reset, but a system reset would 
cause a board reset. Addition of a small 
capacitor should also restore the power-on 
reset. 
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The board's speed is adequate but not 
high enough to allow something like real 
time 3-D rotations of complex objects. I 
asked Biotech if there was a way to 
increase the speed of the board and they 
said that if I had purchased fast enough 
RAMs (about 300nsec) I could replace an RC 
network which drove the 8085's clock with 
a 6 MHz or 7MHz crystal. This would 
increase the board's speed by about a 
factor of three. In addition, if I was 
willing to have snow on the screen during 
processing, I could take pin 1 of U26 (a 
flip-flop reset pin) and hold it always 
low, defeating the bus arbitration 
circuitry which prevents the 8085 and the 
6847 from competing for the refresh memory 
bus. I have not done this yet, but they 
indicate that approximately a 40$ increase 
in speed could be expected from this modi- 
fication. If you make this mod, be 
certain not to ground the other end of the 
run to U26 pin-1, as it is an output pin 
on the 6847. Cut the lead before 
grounding U26 ріп-1. 

The 6847 has an annoying feature 
which is that it places a border around 
the graphics area of the screen. In high 
density mode, that border can only be 
white, making for some synch problems on 
my monitor and making it impossible to see 
lines drawn along the border in white. 
There can also be problems with monitor 
bloom 
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Beginning next month we will start 
cataloging S-100 system software. If you 
have a software package you are offering 
for sale and want a free ad then send us 
the information in the following form. 


Program Name: 

Hardware System: 

Minimum Memory Size: 

Language: 

A short description (120 words maximum) 
When released: 

Price: 

What is included with price: 

Author: 

Where to purchase it: 


All information should be included. 


We reserve the right to edit and/or reject 
any submission. 
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TARBELL DISK CONTROLLER 
MODS 
For Ithaca Audio Z80 CPU 


by 


George Lyons 
280 Henderson St. 
Jersey City, N.J. 


To use the Tarbell floppy disk 
contoller in my system some 
modifications were required for it to 
work at all and others were desirable 
for better performance. The attached 
schematic shows the changes should 
anyone wish to use them. The diagram is 
purely schematic, so some circuit 
disconnections shown actually require 
more than one trace cut. 


l. PWAIT compatibility--With the Ithaca 
Audio or similar Z80 cpus, PWAIT is not 
generated exactly like the 8080 and is 
mostly useless; it cannont be fed back 
to PRDY as on the Tarbell board, so U57 
(diagram lower right) is disconnected 
and reused below. 

2. Bootstrap PROM іп 280 systems--Z80 
cpu cards which do not multiplex status 
on the data lines like the 8080 cannot 
use the standard Tarbell bootstrap PROM. 
One way it can be used is to put a new 
bus signal SMER on an unused bus line 
"Xl" (top Left). This signal is the 
standard line 47, SMER, inverted and not 
disabled by STATDSB. It allows enabling 
the PROM and disabling system memory 
only during memory read cycles, even 
though SMER itself becomes disabled. On 
the Ithaca Audio cpu SMER can be made by 
connecting IC18 pin 14 to the bus with 
driver IC39 pins 9-10, in which case it 
is conveniently disabled in the HOLD 
State even though insensitive to 
STATDSB, to prevent any unwanted reset 
of the boot flip-flop U34 from a HOLD. 


Status signal M1 at U43 pin 1l is 
replaced by reinverted SMER. PSYNC 
itself, instead of gated by 01 is used 


at U43 pin 1 for Z80 cpus synthesizing 
PSYNC not precisely aligned with 01. 


An alternative method eliminating 
the extra bus signal SMER is shown in 
fig. 2. A 7474 flip-flop is added at 
Socket U58 and used to latch SMEMR on 
the rising edge of PSYNC, and to reset 
on the falling edge of PDBIN, 
"remembering" SMER while it is disabled 


by STATDSB. PHLD gates PSYNC at U28 to 
clear U58 during DMA operations. 
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3. Separate Reset and B 
controis prevent engaging th 
bootstrap PROM when hitting RESET, 
Tarbell provides a dip swithch on the 
controller. To more conveniently do so, 
from a keyboard, the boot flip-flop U34 
is rewired as shown with input BOOT 
placed on another unused bus line "X2" 
(high to engage the PROM). This also 
allows use of a ROM monitor with its own 
jump-on-reset circuit (such as on the 
Ithaca Audio cpu) by using X2 to disable 
the ROM's jump circuit when high. A 
panel switch or keyboard key can then 
select which process is desired upon cpu 
reset. When a keyboard is interfaced 
through a MERLIN vide board inverting 
the active-low EDIT key is convenient. 


4. Reset logic at 4mhz--The original 
circuit pulses the Master Reset pin of 
the 1771 when starting the bootstrap. I 
find my 4mhz cpu tends to execute the 
first bootstrap instruction, IN WAIT, 
before INTRQ has reset, causing Lost 
Data errors. This is partly due to MR 
being intiated on the trailing, rather 
than the leading edge of POC. Or gate 
U46 was therefore added to prevent 
Master Reset on booting and the reset 
circuit was simplified to use only POC 
instead of Preset and ExtClr as well. 
U57 (upper left) provides a buffered POC 
to all functions. Master Reset could 
also be fixed with a one-shot but the 
Spare one-shots are used below. Two 
strikes of the RESET key, one with and 
one without Master Reset are needed to 
boot in a 4mhz system. 


no on board display memory but uses DMA 
to refresh the screen--and must be 
deactivatted during disk transfers. To 
avoid doing so with software, the 1771 
HLD signal is placed on a third spare 
bus line "X3" (lower right) and jumpered 
to the PRIORITY-IN pad on the Merlin. 
The Merlin Priority-In circuit may also 
be modified to disable immediately 
instead of waiting until completion of 
any DMA in progress. 
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REMOVE U37 
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6. Automatic Head-load Timing--The 1771 
Inserts а 10ms delay in commands 
requesting the head to load so that for 
optimal efficiency the head load command 
bit must be omitted under software 
control when the head is already loaded 
from previous use. This 10ms delay is 
actually unnecessary because the head 
settling delay is really provided by the 
one-shot U41 and the HLT pin on the 
1771, and is around 50ms. Use of 
separate head-loading and non loading 
commands can be eliminated by activating 
the 1771 TEST pin; it eliminates the 
10ms delay so all commands can be of the 
head-loading type. However, TEST also 
speeds up head positioner step pulses to 
an unusable rate. This is cured by 
applying SEEKCOMPLETE to the TEST pin 
(lower left). 


7. Dual Head Load--When switching back 
апа forth between two drives the Tarbell 
board sends the head load signal to only 
one drive at a time. By rewiring 061 
and U63 as shown and replacing U63 bya 
NAND gate, both heads can remain down 
simultaneously. Neither head will load 
until it is selected, but once loaded 
all remain so until the 1771 HLD signal 
goes off. The spare one-shot U41 is 
added to the original HLT circuit to 
provide settling delay when engaging a 
second head. Note the revérsal of the 
drive connections to pads E20, E19 
resulting from the NAND gate replacement 
U63. 


8. PerSci compatibility--PerSci drives 
with voice-coil head positioner can be 


operated in a "fast seek" mode which 
does not use the 1771 STEP signal but 
Software generated high speed pulses 


from pad E14 instead. The Tarbell board 
provides for permanently jumpering the 
controller in this fast-seek mode or in 
normal mode. Since the software for 
positioning the head is different in 
these two configurations modification 
was done to allow both types of software 
to use the board without changing 
jumpers. The PerSci drive accepts both 
types of STEP signal in any case. The 
Seek mode is selected by bit 04 of the 
function register U40, which also 
controls the source of the WAIT state 
generated when reading the WAIT port 
(FG) In fast seek mode SEEK COMPLETE 
generates the WAIT state for detecting 
completion of a fast mult-track seek, 
while іп slow-seek mode the 1771 signals 
completion of seeks with the usual INTRQ 
Signal. The circuit shown lower right 
allows either pad E14 or 1771 STEP to 
drive the step line in nomral mode and 
disconnects the 1771 STEP signal in fast 
mode (necessary because a STEP pulse is 
generated in using the 1771 to set the 
DIRC signal level). Gates U28 and U29 
shown are reused from other mods above 
where they were fed; alternatively spare 
AND gate at U36 and the added OR gate at 
U46 could be used. 


Conclusion--Those are all the 
modifications. One more circuit might 
be added if the controller were entirely 
redesigned, but requires half a dozen 
gates. This would be to provide WAIT 
stat synchronization on the DATA port 
rather than on the WAIT port, permitting 
Z80 block I/O instructions to do disk 
transfers. It is messy because the 1771 
is configured to use the DRQ and INTRQ 
signals as interrupts, not READY 
signals, and is not shown. 
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SW3LSASOHOIW 001-5 


6? 


СОТО ЕРО ТТТ 


;BASIC INPUT/OUTPUT OPERATING SYSTEM 
;FOR USE WITH THE TARBELL CONTROLLER 


;THIS MODULE CONTAINS ALL THE INPUT/OUTPUT 
¿ROUTINES FOR THE CP/M SYSTEM, INCLUDING 
;THE DISK ROUTINES. 


; 

¿THIS VERSION SUPPORTS THE FOUR DRIVE SYSTEM 
;ОР CP/M 1.4. IT CAN ALSO BE USED WITH 1.3. 
;THE ONLY CHANGE NEEDED IF YOU ARE USING 1.3 IS 
;TO CHANGE THE BDOS EQUATE FROM "CBASE+3106H" 
;TO “CBASE+3206H". 


; 

;******* THIS BIOS REQUIRES 1K MORE THAN THE 512 BYTES 
;ALLOWED BY DIGITAL RESEARCH. THEREFORE, IF YOU WANT 
;TO RUN THIS BIOS YOU WILL HAVE TO GENERATE A CPM THAT 
7IS 1K LESS THAN THE AMOUNT OF MEMORY THAT YOU WANT IT 
;TO RUN IN (I.E. 23 TO FIT IN 24K, 31 FOR 32K, ETC). 
;MSIZE SHOULD AGREE TO THE NUMBER OF K YOU SPECIFIED 
;TO MOVCPM OR RELOC (23 FOR 24K SYSTEM). USE THE 
;BIOS FORMULA GIVEN IN DIGITAL RESEARCH MANUAL. 


IF YOU WANT VDM AS STD OUTPUT-"PTVDM" SHOULD BE TRUF. 
IF YOU WANT STANDARD OUTPUT ROUTINE-"PTVDM" SHOULD BE FALSE. 


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
"MYSYS" MUST BE FALSE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


;THE DISK DRIVER ROUTINES IN THIS BIOS ARE DEPENDENT 
;0N EACH OTHER FOR CERTAIN INFORMATION AND TIMINGS. 
;MODIFICATIONS TO THE DISK DRIVER ROUTINES SHOULD 
;ONLY BE DONE AFTER CAREFUL STUDY. 

¿THIS VERSION CONTAINS SUPPORT FOR FAST READING AND 
;WRITING ON A NON-INTERLEAVED BASIS. THAT IS, IT CAN 
;READ OR WRITE A COMPLETE TRACK IN ONE REVOLUTION OF 
;THE DISK IF THE READS OR WRITES ARE ISSUED IN 

; SEQUENTIAL ORDER. 


i 
;IF YOU HAVE ONLY ONE DISK CHANGE "ONEDSK" TO TRUE. 
;THE I/O SYSTEM WILL THEN SIMULATE A MULTIPLE DRIVE SYSTEM. 


ERROR MESSAGES ARE PRINTED IN THE FOLLOWING FORMAT: 


ХААА TNN SNN 2 


7 DRIVE ОМ WHICH ERROR OCCURED 
THE BIT POSITIONS ARE GIVEN SO THAT THE 1771 MANUAL 
COULD BE CONSULTED FOR FURTHER EXPLANATION. 


---WRITTEN BY M. D. NICHOLS--- 


; WHERE X = (К) АЕА”, (И) WRITE 

; AND ААА = NRY - NOT READY - ВІТ 7 

; WPR - WRITE PROTECT - BIT 6 

; WFT - WRITE FAULT - BIT 5 

; RNF - RECORD NOT FOUND - BIT 4 

; CRC - CRC ERROR - BIT 3 

; LDA - LOST DATA - BIT 2 

; DRQ - DATA REQUEST - BIT 1 

; BSY - BUSY - BIT 0 

; ТЫМ = TRACK WHICH CONTAINS ERROR (DECIMAL) 
; SNN = SECTOR WHICH CONTAINS ERROR (DECIMAL) 
; 

D 

; 

? 

; 
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i 
;FREQUENTLY CHANGED PARAMETERS 


i 
TRUE EQU OFFFFH 


FALSE EQU NOT TRUE 
PTVDM EQU TRUE 
ONEDSK EQU FALSE 
TEST EQU TRUE 
MSIZE EQU 47 
MODIF EQU ‘gt 
SUBMOD EQU ta! 
MYSYS EQU TRUE 
і 
DBASE EQU OF8H 
DCOM EQU DBASE 
DSTAT EQU DBASE 
DTRK EQU DBASE+1 
DSECT EQU DBASE+2 
DDATA EQU DBASE+3 
DWAIT EQU DBASE+4 
DCONT EQU DBASE+4 

ORG MSIZE*1024-512 
CBASE EQU (MSIZE-15)*1024 
ССР EQU СВА5Е%2900Н 
BDOS EQU CBASE+3106H 
CPML EQU $-CCP 
NSECTS EQU CPML/128 
RTCNT EQU 10 
2 

JMP BOOT 
XWBOOT JMP WBOOT 
XCONST JMP CONST 
ХСОМІМ JMP CONIN 
XCONOT JMP CONOT 
XLIST JMP LIST 
XPUNCH ЛМР PUNCH 
XRDR JMP READER 
XHOME JMP HOME 
XDSKSEL JMP DSKSEL 
XSETTRK JMP SETTRK 
XSETSEC JMP SETSEC 
XSETDMA JMP SETDMA 
XREAD JMP READ 
XWRITE JMP WRITE 


; USED IN IF STATEMENTS 

; USED IN IF STATEMENTS 

¿VDM FOR CONOT? 

; USE IF YOU ONLY HAVE 1 DRIVE 
; TESTING AIDS 

;MEMORY SIZE 

;MODIF LEVEL OF DRIVER 

;SUB MODIFICATION LEVEL 
¿SPECIAL STUFF FOR MY SYSTEM 


;BASE FOR CONTROLLER PORTS 
; DISK COMMAND PORT 

;DISK STATUS PORT 

; DISK TRACK PORT 

;DISK SECTOR PORT 

; DISK DATA PORT 

;DISK WAIT PORT 

;DISK CONTROL PORT 

;THIS SETS ADDR OF CBIOS 
; TEMPORARY CALCULATION 
;START OF CP/M SYSTEM 
;START OF BDOS FOR 1.4 
;LENGTH OF CP/M W/O CBIOS 
;% SECT CP/M EXCL. CBIOS 
;RETRY COUNT ON ERRORS 


;FROM COLD START LOADER 
РЕКОМ WARM START 

;CHECK CONSOLE STAT 

;GET CONSOLE CHARACTER 
WRITE CONSOLE CHARACTER 
;WRITE CHAR ON LIST DEV 

; PUNCH CHAR ON PAPER ТАРЕ 
;READ CHAR FROM PAPER TAPE 
;RESTORE HEAD TO TRK 0 
;SELECT DISK DRIVE 

;SET TRACK NUMBER 

;SET SECTOR NUMBER 

;SET DMA ADDRESS 

;READ SELECTED SECTOR 
;WRITE SELCECTED SECTOR 


CALL XSETDMA ;SET IT UP 

POP B ;RESTORE BC 

CALL XREAD 

JNZ WBOOTX ;ERROR ON READ 

DCR D ;* OF SECTORS TO READ - 1 

32 GOCPM ;DONE--GO TO CPM 

INR B ;POINT TO NEXT SECTOR 

MOV A,B ;MOVE IT TO A 

CPI 27 ;END OF TRACK 

JC WBOOT2 ;NO--CONTINUE READING 

INR с ;TRACK NOW EQUAL 1 

MOV B,C ;SET SECTOR BACK TO 1 

JMP WBOOT2 ;READ NEXT TRACK 
WBOOTX: 

LXI H,BTMSG ;GET ADDR OF ERROR MSG 

CALL PMSG ;PRINT IT 

CALL XCONIN ;WAIT FOR KB ENTRY 

JMP WBOOT1 ;DO WARM BOOT AGAIN 


;THIS ROUTINE IS THE EXIT TO CP/M SYSTEM 


GOCPM: 
MVI А,0С3Н ;PUT JUMP TO WARM BOOT 
STA 0 ;AT ADDR ZERO 
LXI H,XWBOOT ;GET ADDR OF WARM BOOT ENTRY 
SHLD 1 ;FINISH THE JUMP INSTUCTION 
STA 5 ;PUT JUMP TO BDOS AT 5 
LXI H,BDOS ;GET ADDR OF BDOS ENTRY 
SHLD 6 ;FINISH JUMP INSTRUCTION 
STA 38H ;SET UP INTERRUPT TRAP 
LXI H, TRAP I 
SHLD 39H ;ARM IT 
LXI H,80H ;SET DEFAULT DMA ADDR 
SHLD DMAADD ;AND STORE IT 
LDA 4 ;GET PREV DRIVE # 
MOV С,А ;SHOULD BE IN C 

D 
IF TEST ; 
XRA A ;CLEAR A 
OUT OFFH ;SHOW IN THE FP LIGHTS 
ENDIF 
JMP CCP ;GO TO CP/M 


;THIS ROUTINE IS A NULL INTERRUPT TRAP 
;FOR NOW, JUST RE-ENABLE INTERRUPTS 


2 
;ENTER HERE FROM COLD START LOADER 


;GIVE SIGN ON MESSAGE 


i 
BOOT: 
LXI SP,80H ;SET STACK POINTER 
XRA A ;CLEAR A 
STA 4 ;FORCE DISK A 
; 
IF MYSYS OR PTVDM 
OUT освн ;RESET VDM 
MVI C,0CH ;SET UP FF TO CLEAR SCREEN 
CALL XCONOT ; SEND IT OUT 
ENDIF 
LXI H,SMSG ;PRINT OPENING MESSAGE 
CALL PMSG ;DO PRINTOUT 
JMP GOCPM ;NOW DO HOUSEKEEPING 


i 
WBOOT: 


WARM BOOT ROUTINE--ACTIVATED WHEN YOU CONTROL C 


LXI SP,80H ;SET STACK POINTER 
WBOOT1: 

MVI c,0 ;USED BY DSKSEL AND SETTRK 

CALL XDSKSEL ;SELECT DISK 0 

MVI D,NSECTS ;$ OF SECTORS IN D 

MVI B,2 ;START WITH SECTOR 2 

LXI H,CCP ;GET STARTING ADDR 
WBOOT2: 

CALL SETTRK ;SELECT TRACK (C) 

PUSH B ;SAVE BC 

MOV C,B ;PUT SECTOR IN C 

CALL XSETSEC ;SET IT UP 

MOV B,H ;GET READY FOR SET DMA 

MOV C,L ; 


i 
TRAP: 


DB 0 ;LEAVE ROOM FOR JUMP OR CALL 
DB 0 ; 
DB 0 H 
EI ; TURN INTERRUPTS BACK ON 
RET ;GO BACK FROM WHENCE YOU CAME 
; 
;SELECT DISK GIVEN BY REG C 
; 
DSKSEL: 
MOV A,C ;PUT NEW DISK IN A 
STA NXTDSK ;SAVE IT FOR REAL RTN 
RET ; 
;SELECT DISK STORED IN NXTDSK 
i 
SELDSK: 
PUSH H ; 
PUSH D ; SAVE REGS 
PUSH B ; 
LDA NXTDSK ;GET NEW DISK # 
MOV С,А ; 
ANI 3 ;LOOK AT 3 LSB'S 
LXI H, DISKNO ;GET ADDR OF DISKNO 
CMP M ;NEW-OLD 
JZ SELXIT 7IF SO,RETURN 
; 
IP ONEDSK 
i 
PUSH B 7SAVE REGS 
PUSH A ;SAVE REGS 
LXI H,MNTMSG ;PRINT 'MOUNT' MSG 
CALL PMSG ; TELL THEM 
POP A ;RETRIEVE REG A 


SWYLSASOYDIN OOT-S 


TS 


STA DISKNO 
ADI ЗА" 
MOV С,А 


CALL XCONOT 
CALL XCONIN 


POP B 

XRA A 

JMP SELXIT 

ENDIF 

MOV E,M 

MVI D,0 

LXI H, TRKTB 

DAD D 

IN DTRK 

моу M,A 

Mov E,C 

LXI H, TRKTB 

DAD D 

MOV A,M 

STA HOLD 

OUT DTRK 

MOV A,C 

STA DISKNO 

CMA 

ADD A 

ADD A 

ADD A 

ADD A 

ORI 2 

OUT DCONT 
SELDEL: 

IN DSTAT 

ANI 20H 

INZ SELDEL 

XRA A 
SELXIT: 

POP B 

POP D 

POP H 

RET 


i 
;SET THE TRACK GIVEN IN REG C 


SETTRK: 


MOV A,C 
STA TRK 
RET 


; 
БЕТ DISK SECTOR NUMBER 
i 


SETSEC: 
MOV A,C 
STA SECT 
RET 

;SET DISK DMA ADDRESS 

; 

SETDMA: 

Ӯ MOV H,B 

MOV L,C 
SHLD DMAADD 
RET 


;STORE IT FOR LATER 
3МАКЕ IT ASCII LETTER 
;PUT IN C FOR CONOT 
;PRINT IT 

;WAIT FOR GO AHEAD 
;RESTORE BC 

;CLEAR A 

;EXIT SELDSK 


;PUT OLD DISK # IN DE 
;CLEAR D FOR DAD 

;GET ADDR OF TRACK TABLE 
;ADD DISK # TO ADDR 

;GET TRACK FROM OLD DRIVE 
;STORE IT IN TRACK TABLE 
;GET NEW DRIVE # 

;GET ADDR OF TRK TABLE 
;GET HEAD LOC ON NEW DRIVE 
;AND PUT IN REG A 

;SAVE FOR SEEK ROUTINE 
;ADJUST 1771 

СЕТ DISK + 

;STORE IT FOR LATER USE 
;INVERT BIT FOR LATCH 
;PUT BITS 0-1 AT 4-5 


;MAKE LATCH COMMAND 
¿SET LATCH WITH CODE 


;UNLOAD HEAD BECAUSE 1771 DOES 


; NOT RECOGNIZE DRIVE SWITCH 
2 
;SAY EVERYTHING OK 


;RESTORE REGS 
;RESTORE REGS 


RESTORE REGS 


i 


;TRK WAS IN REG C 


;PUT IT WHERE IT CAN BE FOUND 


;GET SECTOR NUMBER 
РОТ AT SECTOR fø ADDR 


; 


;MOV BC TO HL 


SAVE IT 


2 
¿READ A SECTOR AT SECT, SEEK THE NEEDED TRACK 


;USE STARTING ADDRESS AT DMAADD 


READ: 
CALL SEEK 
MVI A,RTCNT 
RRETRY: 
STA ERCNT 
LDA SECT 
LHLD DMAADD 
READ]: 
OUT DSECT 
CALL RDYCK 
DI 
IN DSTAT 
ANI 20H 


;MOVE HEAD TO TRACK 
;GET RETRY CNT 


; SAVE ERROR CNT 
;GET SECTOR NUMBER 
;GET STARTING ADDRESS 


;SET SECTOR IN 1771 

;SEE IF DRIVE READY 

;DO NOT ALLOW INTERRUPTS 
;GET STATUS 

;CHECK IF HEAD LOADED 


READE: 


RLOOP: 


RDDONE: 


CHECK: 


FREAD: 


; 
;WRITE THE SECTOR AT SECT--LOAD 
;USE STARTING ADDRESS AT DMAADD 


i 
WRITE: 


WRETRY: 


WRITE1: 


WRITEN: 
WLOOP: 


WDONE: 


FWRITE: 


CALL 
MVI 


STA 
LDA 
LHLD 


OUT 
CALL 
DI 
IN 
ANI 
MVI 
JNZ 
ORI 


OUT 


DCOM 


FREAD 


DSTAT 
9DH 


ERRS 


TEST 


ОРЕН 


ERCHK 
ERCNT 
A 
RRETRY 
A,'R' 
ERRMSG 


DWAIT 
A 


DDATA 
M,A 

H 
FREAD 


SEEK 
A,RTCNT 


ERCNT 
SECT 
DMAADD 


DSECT 
RDYCK 


DSTAT 
20H 

A, OA8H 
WRITEN 
4 

DCOM 
FWRITE 
DSTAT 
OFDH 
ERRS 
TEST 


OFFH 


ERCHK 
ERCNT 
A 


WRETRY 
A,'W' 
ERRMSG 


DWAIT 
A 


;SETUP READ W/O HEAD LOAD 
;1F LOADED - THEN DO IT 
;ELSE FORCE HEAD LOAD 


;SEND COMMAND TO 1771 
;READ A SECTOR 

; ALLOW INTERRUPTS AGAIN 
;READ DISK STATUS 

;LOOK AT ERROR BITS 
;RETURN IF NONE 


;SAVE ERROR BYTE 


FP INVERTED LOGIC 
IN THE LIMELIGHT 


;CHECK FOR SEEK ERROR 
;GET ERROR CNT 
;DECREMENT COUNT 

; TRY TO READ AGAIN 
;SHOW READ ERROR 

; TELL SOMEONE 


;WAIT FOR DRQ OR INTRO 
;SET FLAGS 

;DONE IF INTRQ 

;READ A BYTE FROM DISK 
;PUT BYTE IN MEMORY 

; INCR MEMORY POINTER 

; KEEP READING 


HEAD FIRST 


;GET ON RIGHT TRACK 
;GET RETRY COUNT 


; SAVE ERROR CNT 
;GET SECTOR # 
;GET STARTING ADDR 


БЕТ SECT INTO 1771 

+SEE IF DRIVE READY 

300 NOT ALLOW INTERRUPTS 
;GET DISK STATUS 

;CHECK FOR HEAD LOADED 
;SETUP WRITE W/O HEAD LOAD 
;IF LOADED THEN DO IT 
;FORCE WRITE WITH HEAD LOAD 


;ISSUE COMMAND 
;WRITE A SECTOR 


;ALLOW INTERRUPTS AGAIN 
;READ DISK STATUS 

;MASK NON-ERROR BITS 
;RETURN IF NO ERRORS 
;SAVE ERROR FLAGS 


i 
; INVERT THEM 
;PUT THEM ON FP LEDS 


;CHK/CORRECT SEEK ERR 
СЕТ ERROR CNT 
;DECREMENT COUNT 

; TRY WRITE AGAIN 
;SHOW WRITE ERROR 

;DO ERROR MESSAGES 


;WAIT FOR READY 
;SET FLAGS 
;GET OUT WHEN DONE 


TS 


SNWALSASOUDIW 001-5 


MOV AM 
OUT DDATA 
INX H 

JMP FWRITE 


;GET BYTE FROM MEMORY 
;WRITE ON DISK 

;POINT TO NEXT BYTE 
;KEEP WRITING 


;READ OR WRITE ERROR DETECTED--HANDLE NO REC FOUND 
;CONDITION ELSE NORMAL RETRY LOOP 


i 

ERCHK: 
LDA ERRS 
ANI 10H 
RZ 


;GET ERROR BYTE 
;MASK FOR NRF 
;NOT NRF FAULT 


;CHECK TO SEE IF ON CORRECT TRACK- 


;CORRECT IF NECESSARY 


i 

CHKSK: 
MVI A,0C4H 
OUT DCOM 
DI 
IN DWAIT 
IN DDATA 
EI 


PUSH PSW 
CALL SWAIT 


POP PSW 
STA HOLD 
OUT DTRK 
¿TRACK DESIRED HAS ALREADY BEEN 
1 
SEEK: 
CALL SELDSK 
LDA TRK 
PUSH B 
MOV В,А 
LDA HOLD 
CMP B 
22 FORINT 
MOV A,B 
STA HOLD 
POP B 
CPI 0 
92 HOMRTN 
OUT DDATA 
CALL SWAIT 
MVI А,1АН 
CALL SCMND 
CALL SLOOP 
RET 
; 
SCMND: 
OUT DCOM 
SWAIT: = 
CALL ZIP 
CALL ZIP 
SBUSY: 
IN DSTAT 
RRC 
әс SBUSY 
ZIP: 
RET 
; 
FORINT: 
MVI A, ODOH 
OUT DCOM 
POP B 
RET 
i 
SLOOP: 
PUSH H 
LXI H,9*256 
SLOOP1: 
DCR L 
JNZ SLOOP1 
DCR H 
JNZ SLOOPl 
POP H 
RET 


;SET UP READ ADDR 

;COMMAND TO 1771 

;DO NOT ALLOW INTERRUPTS 
;WAIT FOR 1ST DRQ (TRK) 
;READ THE TRACK ADDR 
7ALLOW INTERRUPTS AGAIN 
;SAVE TRACK 

;WAIT FOR OPERATION TO FINISH 
;GET TRACK BACK 

;USE IT TO SET UP SEEK RTN 
;UPDATE TRACK REGISTER 


STORED BY SETTRK 


;WILL DO NOTHING IF FROM CHKSK 
;GET WHERE WE ARE GOING TO 
;SAVE BC 

;SAVE TRK IN B 

;GET PREV TRACK 

;COMPARE TO CURRENT 

;SAME SO FORCE INTERRUPT 
;PUT CURRENT IN A 

¿SAVE FOR NEXT TIME 
;RESTORE BC 

¿SEE IF ТЕК = 0 


;DO HOME ROUTINE INSTEAD 
;GIVE DESIRED TRK TO 1771 
;WAIT TILL NOT BUSY 
БЕЕК-10М5- 

;ISSUE COMMAND 

;GIVE TIME FOR HEAD ТО SETTLE 


H 


;ISSUE COMMAND 


;WE NEED AT LEAST 12 US 
;AGAIN, FOR 4 MHZ 


;WAIT FOR NOT BUSY, IE INTRO 
;SET CARRY IF BUSY 
;STILL BUSY 


;INTRQ RESET BY READING STATUS 


;CLEAR ANY PENDING COMMAND 
;AND FORCE TYPE 1 STATUS 
;CLEAN UP 

;GO BACK 


;GIVE TIME FOR HEAD TO SETTLE 
;NEED ABOUT 10 MS 


;HOME ROUTINE-SET TRK TO ZERO AND SEEK 
;WILL PICK UP DURING READ OR WRITE 


HOME: 

i 
XRA 
STA 
RET 


A 
TRK 


;CLEAR A 
;PUT WHERE IT CAN BE FOUND 


2 


;THIS ROUTINE ONLY CALLED FROM SEEK 
;TO PERFORM ACTUAL HOME 


; 

HOMRTN : 
МУІ 
OUT 
CALL 
MVI 
CALL 


CALL 
RET 


A,0DOH 
DCOM 

SWAIT 
A, OAR 
SCMND 


SLOOP 


;RESET ANY PENDING COMMAND 

; ISSUE COMMAND 

;WAIT FOR NOT BUSY 

710 MS SEEK RATE--HOME 

;ISSUE COMMAND-WAIT FOR INTRO 


;FOR HEAD SETTLING 
;GO BACK 


2 
;CHECK FOR DRIVE READY-IF NOT TELL OPERATOR 
;AND WAIT FOR CR 


RDYCK: 


RDYl: 


most se ee 


MSG: 

MOV 
ORA 
RZ 
MOV 
CALL 
INX 
JMP 


; 
ERRMSG: 
PUSH 
PUSH 
MOV 
LXI 
CALL 
MOV 
CALL 
LDA 
LXI 
LOCERR: 
INX 
INX 
INX 
RLC 


JNC 

MVI 
TYPRNT: 

MOV 

CALL 

INX 


ERROR MESSAGE 


H,NRDYMS 
PMSG 
DISKNO 
‘At 

C,A 
XCONOT 
XCONIN 
H,CRLF 
PMSG 


PRINT MESSAGE ROUTINE 


ROUTINES 


LOCERR 
B,3 


C,M 
XCONOT 
H 


;GET DISK STATUS 
;MASK FOR READY 
;0K WE ARE READY 
¿SAVE REGS 
;SAVE REGS 


; POINT TO MESSAGE 
;PRINT IT OUT 
;GET CURRENT DRIVE 
;CHANGE TO ASCII 
;SET UP TO PRINT 
¿PRINT IT 

;GET KEYBD CHAR 
;SET UP CR AND LF 
;PRINT IT 
;RESTORE REGS 
;RESTORE REGS 


¿GET BYTE TO PRINT 

;SER IF BINARY ZERO 
;YES, WE ARE DONE 

;PASS IT IN C 

;PRINT A CHAR 

;POINT TO NEXT BYTE 
;STAY IN LOOP TILL DONE 


;SAVE HL 

;SAVE BC 

;БАМЕ TYPE INDICATOR 
;DO CRLF 

;PRINT IT 

;GET TYPE INDIC 
;PRINT IT 

;GET ERROR BYTE 
;POINT TO ERROR TABLE 


; POINT TO NEXT ENTRY 
7IN ERROR TYPE TABLE 


; 
;SHIFT BIT INTO CARRY 


;NOT IN ERROR-KEEP LOOKING 
;SET В = 3 


;GET FIRST LETTER 
;PRINT IT 
;POIN T TO NEXT LETTER 


SWALSASOUDIN OOT-S 


£S 


DCR B 
JNZ TYPRNT 
CALL BLK 
MVI Carm 
LDA TRK 
CALL ERRPRT 
MVI с,'5' 
LDA SECT 
CALL ERRPRT 
LDA DISKNO 
ADI ‘A’ 
MOV С,А 
CALL XCONOT 
POP B 
POP H 
MVI Nel 
ORA A 
RET 
ERRPRT: 
PUSH PSW 
CALL XCONOT 
POP PSW 
DECPRT: 
MVI C,'0'-1 
DECPR1: 
INR с 
SUI 10 
JP DECPR1 
ADI 10+'0' 
MOV В,А 
CALL XCONOT 
MOV с,в 
CALL XCONOT 
BLK: 
MVI сум 
ЈМР XCONOT 


; 
;CBIOS MESSAGES 


;DECREMENT COUNTER 
;KEEP PRINTING LETTER 
; PRINT A BLANK 

;PRINT A T FOR TRACK 
;GET TRACK WE ARE ON 
; SHOW THEM LOCATION 

; PRINT AN 5 FOR SECTOR 
;GET SECT WE ARE ON 
;AND SHOW IT 

;GET CURRENT DRIVE 
;MAKE IT ASCII 

;SET UP FOR PRINT 
;PRINT IT 

;RESTORE B 

;RESTORE HL 

;SIGNAL ERROR 

;SET FLAGS 

360 HOME 


;SAVE NUMBER 

¿PRINT LETTER IN C 

;GET NUMBER BACK 

;SET UP C FOR 10'S DIGIT 


;EXTRACT MS DIGIT 


;BY REPETITIVE SUBTRACTION 


i 

; RESTORE TO POSITIVE 
;SAVE LS DIGIT 

; LIST TENS DIGIT 

;PUT UNITS DIGIT IN C 
; PRINT A BLANK 


; PRINT A BLANK 
; PRINT IT AND RETURN 


i 
SMSG: DB ODH, OAH, 'MDN CP/M R1.V4 / 

DB MODIF,SUBMOD,' /' , Орн, OAH, 0 
BTMSG: DB Орн, OAH, 'BOOT FAILURE',0 
CRLF: DB Орн, OAH, 0 
MNTMSG: DB ODH,OAH,'MOUNT ',0 
NRDYMS DB ODH, OAH, 'NOT READY-DRIVE ',0 
TYPERR: DB "NRYWPRWFTRNFCRCLDADROQBSY' 


;CHECK CONSOLE INPUT STATUS 
;NOT READY (A)=0, READY (A)-FF 


FÅ 

CONST: 

+ 
IF MYSYS 
IN 2 
ANI 80H 
ENDIF 

| IF NOT MYSYS 
IN 0 
ANI 1 
ENDIF 

i 
MVI A,0 
RNZ 
CMA 
RET 


READ A CHARACTER FROM CONSOLE 


SAS 


ONIN: 
IF MYSYS 
IN 2 
ANI 80H 
JNZ CONIN 
IN 0 
ANI 7FH 
RET 


;READ CONSOLE STATUS 
;LOOK AT BIT 7 


i 
i 
;LOOK AT BIT 0 
i 


;SET A=0 
; RETURN WITH NOT READY 
; READY SO A=FF 


i 

; READ CONSOLE STAT 
;LOOK AT BIT 7 

; KEEP WAITING 

СЕТ DATA BYTE 

; TURN PARITY OFF 


; 


NOT MYSYS 
0 

1 

CONIN 

1 

7FH 


;READ CONSOLE STAT 
;LOOK AT BIT 0 

;NOT RDY-KEEP WAITING 
;READ DATA BYTE 

; TURN OFF PARITY 


;WRITE CHARACTER IN (C) TO CONSOLE DEVICE 


; 
CONOT: 


i 


SCRL: 


SCRL1: 


SCRL2: 


CTLCHR: 


OCCOOH 
VDBASE/256 


A,C 
ТЕН 
7ЕН 
ЕХІТ 
A,M 
7FH 
M,A 
A,C 
Ty 


CTLCHR 
M,A 

H 

A,H 
VDBAS2+4 
SCRL 
EXIT 


H, VDBASE 
B 
B, VDBASE+64 


B 
M,A 
B 
H 
A,B 


VDBAS2+4 
SCRL1 
B 


;GET STATUS 

;LOOK AT BIT 7 

;NOT READY-KEEP WAITING 
;CHAR IN C TO A 

;PRINT IT 


; SCREEN MEMORY AREA 
;MSB OF VDBASE 


¿SAVE HL 

;GET CURRENT CURSOR LOC 
;DO OUTPUT 

¿SAVE CURSOR LOCATION 
;RESTORE HL 


;PUT CHAR IN A 

; TURN OFF PARITY 

;CHECK FOR RUBOUT 

;DO NOTHING IF RUBOUT 
СЕТ CURSOR 

; TURN IT OFF 

; PUT BACK ON SCREEN 
;GET CHAR IN A 

;CHECK FOR CONTROL CHAR 


;IF YES, DO SOMETHING SPECIAL 


;PUT ON SCREEN 

; POINT TO NEXT LOCATION 
;GET SCREEN ADDR MSB 

7 CHECK FOR END OF SCREEN 
;IF YES, THEN SCROLL 
;GET OUT OF HERE 


;POINT TO START OF SCREEN 
;SAVE BC 
;PUT START + 1 LINE IN B 


;GET BYTE FROM SCREEN 
;AND PUT IN NEW POSITION 
;INCREMENT POINTERS 


;GET ADDR MSB 

;CHECK FOR END OF SCREEN 
3ІЕ NOT, THEN KEEP DOING 
;RESTORE BC 

;SAVE THIS ADDR 


;PUT BLANK ON LAST LINE 
;POINT TO NEXT LOC 

;GET ADDR LSB 

;CHECK END OF LINE 

;NOT YET 

;POINT TO BEGIN OF LINE 
;WE ARE DONE 


;IS IT BS 
;YES 


PS 


SWALSASOUDIN 001-5 


CRTN: 


DELETE: 


CLF: 


XTRA: 


CLEAR: 


CLEAR1: 


HOM: 


EXIT: 


mes 


IST: 


11571: 


DW 


ENDIF 


H, VDBASE 
A, VDBAS2+4 


м,' ' 
H 
H 
CLEAR1 


H, VDBASE 
EXIT 


MYSYS 
A, OAH 
с 


А,25 
ADDNL 
A, OCH 
с 


А,25 
ADDNL 
A, ODH 
с 
А,02 
ADDNL 


40H 


;IS IT CR 

;YES 

;IS IT LF 

; YES 

;IS IT HOME 

; YES 

;IS IT FF 

; YES 

; NOT WANTED-DO NOTHING 


;GET CURSOR LOC LSB 
;PUT AT BEGIN OF LINE 
;PUT BACK 

;GET OUT 


;GET CURSOR LOC LSB 
;SEE IF BEGIN OF LINE 
;YES - DO NOTHING 

i А 
;SET NEW LOC TO SPACE 
;GET OUT 


;SAVE REGS FOR SCROL 

; 

;PUT LINE LENGTH IN BC 
;ADD TO CURRENT LOC 

;GET LOC MSB 

215 IT PAST END OF SCREEN 
2ВЕ5ТОВЕ BC 

;HL OK BUT GIGO ON STACK 
;SCROLL IT 

;RESTORE HL 

;GET OUT 


;SWAP HL WITH TOS 
;CLEAN STACK AND CORRECT HL 
;GET OUT 


;GET START OF SCREEN IN HL 
;PUT END OF SCREEN MSB IN A 


;PUT BLANK IN MEM 

;POINT TO NEXT LOC 
;CHECK FOR END OF SCREEN 
;NO, STAY IN LOOP 


;PUT START OF SCREEN IN HL 


; 


;GET MEMORY BYTE 

; TURN ON CURSOR 

;PUT IT BACK 

;MAKE IT LOOK NORMAL 
;GOODBYE 


;CURRENT CURSOR LOC 


; 


WRITE À CHARACTER ON LISTING DEVICE 


2 
;CHECK FOR А CR 
¿IF IT IS THEN DO NULL RTN 


i 


+ 
;CHECK FOR FF 
;DO FF RTN IF YES 


;CHECK STATUS 
;MASK OFF TBE 


47 LIST1 
MOV A,C 
OUT 03 
RET 
ADDNL: 
PUSH B 
MOV B,A 
ADDNL1: 
CALL LIST1 
ADDNL3: 
MVI C,07FH 
DCR B 
JNZ ADDNL1 
ADDNL4: 
POP B 
MOV A,C 
RET 
ENDIF 
; 
; 
IF NOT MYSYS 
CALL CONOT 
RET 
ENDIF 


;WAIT FOR TBE 
СЕТ DATA BYTE 
;SEND IT OUT 


; 


;SAVE BC 
;SAVE IT IN B 


;PRINT CR FIRST 


;GET NULL CHAR 
;DECREMENT COUNTER 
ТЕ <>0 THEN DO MORE NULLS 


;RESTORE B 
;RESTORE A 
;RETURN FROM LIST 


; 


ROUTE TO CONSOLE FOR NOW 


~ ~ ~ 


i 
;NORMALLY USED TO PUNCH PAPER TAPE 
;CAN BE USED AS BIT BUCKET TO CHECK FILES 


i 
PUNCH: 
RET 


;NORMALLY USED TO READ PAPER TAPE 
;NOT IMPLEMENTED BUT CPM REQUIRES EOF 


READER: 
MVI A, 1AH 
RET 


;DATA AREAS FOR CPM 


; 
TRK DB 0 
TRKTB DB 1,1151 
SECT DB 0 
DMAADD DW 0 
DISKNO DB 0 
NXTDSK DB 0 
HOLD DB 0 
ERCNT: DB 0 
ERRS: DB 0 
SKCNT: DB 0 
END 


CURSOR 


Continued from Page 38 


3250 DIM A$ (LN) 
3260 FOR М=1 TO LN 
3270 LINEINPUT#1,D$ 


;SET A-CTL-Z (EOF) 


i 


;TRK WANTED 

; TRACK TABLE 
;SECTOR # 

;DMA ADDRESS 
;SELECTED DISK 


;SAVE AREA FOR SEEK 
;ERROR COUNT 


; ERROR HOLD AREA 
;SEEK ERROR HOLD 


3280 А$ (№) =D$+STRING$ (WD-LEN (D$) , 32) 


3290 NEXT N 
3300 CLOSE 
3310 GOSUB 2550 
3320 GOTO 630 
3330 REM 

3340 REM 


3350 REM ****x RII IO TOI dede dede de dede ede deed eek eo Ro ee 


3360 REM * 


3370 REM * IN.THIS LISTING, "|" MEANS "IS GREATER THAN 


3380 REM * 
3390 REM * 


"{" MEANS "IS LESS THAN" 


* 
* 
* 
* 


3400 REM **9dkdek dede dede eR Heo Rede Ko Role eie ee dele ek o e He eee ex 


3410 PRINT "HI THERE" 


LETTERS 


Continued from Page 8 


use and as a co-conspirator to foment 
S-100 computing until a better system 


evolves. 
Again, congratulation and good 


luck. 
Edward Lee 
Riderwood Md 
Dear Sol: 


Hope you don't mind the "plug" in 
our newsletter. I was in Atlantic City 
last month and picked up one of your 
flyers at the Computer Store in Linwood. 
soccc is a small club (25-30 members) of 
mostly S-100 systems, so most of the 
members will probably subscribe. Next 
time you're in the southern California 
area we'd be interested in hearing from 
you - give me a call or drop a note. 

I just got my first issue 
yesterday - read it from cover-to-cover, 
and in spite of the error (omission) on 
page 44/45 (CBBS) I enjoyed the magazine 
very much. I like the format but most of 
all, the content - good, worthwhile and 
useful articles. 

If there's anything I (or the 
club) can do to help, don't hesitate to 
call or write. 

Mel Hengen 

South Orange County Computer Club 

Fountain Valley, CA 


To: Sol Libes 

Your first issue of S-100 
MICROSYSTEMS was very informative and 
interesting to read. I hope you will be 
able to keep the good work up. I enjoyed 
reading the IEEE S-100 information. 
However, I must confess that I will be 
studying it for some time to fully 
understand the bus. Even though I have a 
SYM-I (6502 based single board computer), 
I feel that sometime (a Year or two) in 
the future I would like to build an S-100 
System. It would not have to be a 6502 
based system (I have corresponded with you 
on that subject). To spend all that money 
for a mainframe, etc. I might very well 
be interested in a 16-bit machine. I am 
currently investigating the Motorola 
MC68000. Thus, I am very happy to see the 
IEEE S-100 enhancements to accommodate 
16-bit machines. I am very interested in 
having a computer system that is both 
"powerful and has great flexibility". 
With those thoughts in mind, I am looking 
forward to more issues of 5-100 
MICROSYSTEMS and I would be interested in 
articles that cover, or are about the 
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following: 

* $-100 MAINFRAMES - good, bad, 
noise problems and their solutions, power 
supplies, etc. 

* CPU card design principles to 
meet IEEE standards. 

* Operating systems (Good start 
with the CP/M article). 

* IN GENERAL - a good mixture of 
hardware and software articles (as per Vol 
1/ No 1). 

George V. Wilder 

Lisle, 111 


CLUBS 


Continued from Page 12 


Cromemco User Systems & Software Pool 
Box 784 

Palo. Alto CA 94302 

Tel: (415) 321-5998 


Denver Amateur Computer Society 
CP/M and Pascal User Groups 
1380 South Santa Fe 

Denver CO 80223 


PROTEUS, The Processor Technology Users 


Societ 
1690 Woodside Drive, Suite 219 


Redwood City CA 94061 
Tel: (415) 368-3331 


Space Coast Microcomputer Club 
315 Inlet Ave 

Merritt Island FLA 32952 

Tel: (305) 452-2159 


Toronto Regional Assoc. Of Computer 


Enthusiasts 

Box 6922 Station A 
Toronto Ontario M5W 1X6 
Canada 
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5-100 NEWS 


Continued from Page 7 


AMRAD TO PUBLISH CBBS DIRECTORY 

The Amateur Radio Research and 
Development Corporation (AMRAD) -- an 
amateur radio and computer society with 
headquarters in the Washington, DC area -- 
is conducting a survey of computer message 
systems. AMRAD plans to publish a 
directory of Computerized Bulletin Board 
Systems, Apple Bulletin Board Systems, 
Forum-80's and similar systems in the near 
future. The directory is to be available 
to anyone at a nominal charge of $1. 
AMRAD member and those who contribute 
first-hand information about existing 
message systems will receive the directory 
free of charge. 

Individuals connected with existing 
message systems are asked to send their 
names and addresses to David W. Borden, Rt 
2, Box 233B, Sterling, Virginia 22170, and 
request a copy of the AMRAD Computer 
Message System Questionnaire. This 
questionnaire contains all the elements of 
information needed for entries in the 


directory. 


IEEE DEVELOPING ASSEMBLY LANGUAGE 

STANDARD FOR MICROS 
The Institute of Electrical and Electronic 
Engineers is developing a standard for 
assembly language on microprocessors (IEEE 
Task P694/D11). It is long overdue and 
will be of enormous value to all assembly 
language programmers who are struggling 
with different microprocessors. The group 
working on the standard has done some 
genuinely worthwhile things, such as 
Showing that all the current major chips 
can be handled nicely by one standard. 
The problems at present are incredible. 
For example, on some chips MOV A,B means 
move the contents of register B to A, 
while on others it means just the 
opposite. 

Right now, AMD is second sourcing the 
Zilog Z8000, and would you believe it, 
they are not using the Zilog mnemonics! 
Hopefully, the new IEEE standard will cure 
problems such as this. In another 
example, Zilog did not use the Intel 
mnemonics for the Z80's instructions which 
were a subset of the 8080. 

The standard also covers Instruction 
Names, Address Modes, Operand Sequences, 
Expression Evaluation, Constants, Lables, 
Comments and Assembler Directives. The 
standard does not specify the syntax 
necessary to support macros or conditional 
assembly. 

The IEEE Computer Society is to be 
congratulated for its activities in 
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developing computer standards. They are 
overcoming problems created by companies 
that all too often purposely create 
incompatibilities in order to protect 
their competitive position. 

I predict that this standard will 
meet with the wide adoption that the other 
IEEE standards (IEEE-488 and IEEE-S-100 
bus standards) are meeting with. 
Incidentally, you can obtain a copy of the 
Assembly Language Standard draft by 
sending a self-addressed 10х13 size 
envelope with 4 stamps on it to Dr. Robert 
G. Stewart, Chairman Computer Standards 
Committee, IEEE Computer Society, 1658 
Belvoir Drive, Los Altos CA 94022. 

Incidentally, the IEEE is also 
working on several other standards 
relevant to the microcomputer area. They 
are: Multibus (Task No. P696.2), Microbus 
(Task No. P696.3), Futurebus (Task No. 
P696.4), Floating Point (Task No. P754), 
High Level Languages (Task No. 755), 
Pascal (Task No. 770) and Relocatable 
Object Format (Task No. 695). I will try 
and report on the progress of these 
standards ina future S-100 MICROSYSTEMS 
column. 


Lee Felsenstein, the wizard who 
created the Processor Tech SOL computer, 
the VDM, the 3P+S and several other 
products is back with a new computer that 
is in effect a "SOL-II". (incidentally, 
before we go any further I must say that 
contrary to a statement made in a magazine 
recently, the SOL was not named after me.) 

The new computer, whose new name and 
manufacturer is still a secret will debut 
in April. It is being manufactured here in 
the U.S. by a Swedish concern. Physically 
it will look like a SOL except that it will 
be housed in a vacuum formed plastic 
enclosure. It will operate with a TV 
monitor and have a built-in cassette, 
printer and spare parallel I/O ports. The 
entire computer will be on a single board 
which includes the keyboard and will have 
as an option, a 4-slot S-100 bus mother- 
board (IEEE compatible) for plug-ins such 
as disk controller and memory and I/O 
expansion. 

The computer will have Microsoft BASIC 
(V5.1) in ROM. They can be removed and the 
Space converted to RAM by changing some 
jumpers. The computer will have a lot of 
powerful goodies such as: Real-time clock, 
interrupt driven keyboard, priority 
interrupt system, 16K static RAM on the 
main board, use of cassette port for RS-232 
modem I/O, options such as the ACE multi- 
tasking scheduler and best of all, the unit 
will sell for under 51К. 


SOL-LIKE COMPUTER TO BE PRODUCED 
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CHARTER SUBSCRIPTION OFFER! 
S-100 


MICRO SYSTEMS 


THE ONLY MAGAZINE BY AND FOR S-100 SYSTEM USERS! 
TAKE ADVANTAGE OF THIS LIMITED жаа: 
TIME CHARTER SUBSCRIPTION OFFER! MICRO О SYSTEMS 


At last there is a magazine written exclusively for 5-100 system users. ЈАМ/ FEB 1980 J 
No other publication is devoted to supporting S-100 system users. No VOL. И NO] 
longer will you have to hunt through other magazines for an 

occasional 5-100, CP/M* or PASCAL article. Now find it all іп one 

publication. Find it in 5-100 MICROSYSTEMS. 


SOFTWARE HARDWARE SYSTEMS 
CP/M* 8 bit & 16 bit CPUs Cromemco 
Assembler interfacing North Star 
BASIC hardware mods IMSAI 
PASCAL bulletin board systems SOL 
applications multiprocessors Polymorphics 
and lots more and lots more and lots more 


Every issue of S-100 MICROSYSTEMS brings you the latest in the | ^ Introduction i cp 1 Issue 
$-100 world. Articles on applications, tutorials, software | х tg т. Ti 
bl 


ord Sys stems 


development, letters to the editor, newsletter columns, book 
reviews, new products, etc. Material to keep you on top of the 
ever changing microcomputer scene. 


*Registered Trademark Digital Research 


Take advantage of our low charter subscription offer right Published every other month 
now! This offer runs out on April 30, 1980. Edited by Sol Libes and Russell Gorr 


Send me — Issues of 


S-100 


OFFER. MIGROSVSTEMS 2:2 


Y 
añe Name 
por ©“ 
Address 
КО; of en 
ssues enclose 
City 
6 issues $ 7.50 
{2 Issues (2 yrs.) 14.00 
18 issues (3 yrs.) 21.50 ORO ша JA ш, сше E CUNT AO 
апааа: $9.00 per year U.S. Funds СР umm ар сат lover et. see sr DISK System 
oreign: $20 per year only 
oreign Air Mail add $12. Clip and mail to: S-400 MICROSYSTEMS 


P.O. Box 1192 Mountainside, NJ 07092 


NEW 
PRODUCTS 


VIDEO DIGITIZER/MONITOR INTERFACE 


TECMAR INC. has introduced a 
Real Time Video Digitizer and Monitor 
Interface (RT+MI) for S-100 systems, 
which digitizes video data from TV 
cameras and uses the digital data to 
reconstruct a picture on a TV moniotr. 
It digitizes the picture in 1/60 second 
and deposits it into memory as a single 
operation using DMA. It displays 
pictures in 16 gray levels or black and 
white combination. It бап 
simultaneously deposit and display 
allowing constant viewing of picture 
until desired image is seen on monitor, 
when it can be frozen on monitor. The 
last digital image displayed remains in 
memory and can be displayed at any time 
thereafter without erasing it from 
memory. The image can be processed or 
put on disk for later retrieval. 
Maximum resolution is 512 x 240 pixels. 
The complete RT+MI, includes Video 
A/D(shown above), Video D/A and DMA 
controller boards occupying 3 S-100 
slots and costing $850. For information 
contact: TEC Mar Inc., 23414 Greenlawn, 
Cleveland Ohio 44122; tel: (216) 382-7599. 


64K RAM BOARD INTRODUCED 


Measurement Systems & Controls 
Inc., has released the DMB-6400, a 64K 
Bank Switchable Dynamic Memory Board for 
S-100 systems. Output port addressing 
is used for bank selection of 4 totally 
independent 16K banks of memory. Each 
bank can be turned ON or OFF at system 
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reset and PHANTOM can be used by any of 
the four banks. Four diagnostic LEDs 
indicate which banks of memory are on. 
The board will operate with all 8080, 
8085 @ 3 MHz and most Z80A @ 4MHz CPU 
boards. In addition, it will operate 
with the Marin Chip M9900 CPU. For 
further information contact: Measurement 
Systems & Controls Inc.,867 North Main 
Street, Orange CA 92667; tel: 
(714)633-4460. 
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NORTH STAR INTRODUCES HARD DISK 


North Star Computers Inc. has 
announced a new Winchester-type 18Mbyte 
enhancement for its Horizon computers 
and users of North Star floppy disk 
systems. Up to four hard disks and 2 
mini-floppy disks may be accommodated on 
one system, providing up to 72Mbytes of 
storage on the hard disks and over 
lMbyte on the floppy drives. Century 
Data Marksman hard disk drives are 
utilized with an average access time of 
78 msec. Software supplied with the 
system includes a File Manager, a 
program for creating backup diskettes, a 
Command Processor (Supporting all the 
North Star floppy disk DOS and Monitor 
commands, while adding others) and BASIC 
interpreter (modified to support hard 
disk files and run all previous North 
Star Basic programs with little or no 
change). For more information contact: 
North Star Computers, 1440 Fourth 
Street, Berkeley CA 94710; tel: 
(415) 527-6950. 
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The Fifth 
Trenton Computer Festival 


ТСЕ-80 


April 19 & 20, 1980 


10 AM to6 PM at TRENTON STATE COLLEGE 10 AM to + PM 
SATURDAY, 19th Trenton, New Jersey SUNDAY, 20th 


Super Outdoor Flea Market Indoor Commercial Exhibit Area 


Surplus computer gear, bargains galore, over 90 exhibitor booths showing newest products; 
5 acres of space ($5/spot, no electricity). special discounts; funkv games to play. 


Forums, Talks & Seminars Convenient to NY, PA, MD & DEL 
Meet the leading experts and hear sessions on Easy to get to; free parking for over 6,000 cars. 
robots, computer music, amateur radio, etc. 

Free Short Courses on Sunday 


Hundreds of Door Prizes * Banquet Saturday Night 
For additional information call 609-771-2487 
Admission $5 - Students $2 
Tickets available only at door 


Sponsored by: Trenton State College Digital 
Computer Societv 


Вг ; i м 
час аме p Avoka Amateur Computer Group of ~ > å 
disappointment — purchase New Jersey Dept. of Engineering 
d эчүе Жын Philadelphia Area Computer Е Trenton State 
Saturday at door. ee § 

т society L.E.E.E., Princeton Section 
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and commercial applications. 


This CPU card contains all the good Z-80 features of other boards, but also features full compliance 
with the proposed IEEE S-100 bus standards, provision for adding two EROMs for 4K to 8K of on-board 
ROM (2716 or 2732 — not included with board), power on jump to any of 256 boundaries, on-board ful- 
ly maskable interrupts at port FE (hex) for interrupt driven systems, 2 or 4 MHz operation, power on 
clear that generates preset and slave clear according to IEEE specs, selectable automatic wait state inser- 
tion for servicing M1* instructions - MRQ* — I/O КО" — or the on-board ROM (individually or severally 
selectable), non-maskable interrupt on bus pin 12 as per IEEE specs, and we've also included on-board 
IEEE compatible extended addressing at port FD (hex). 

These advanced features give you the power you need for future expansion, as well as the system 
flexibility that comes from superior design . . . but perhaps best of all, the price is competitive with 
boards that do a whole lot less. The Z-80A CPU board is available for $225 unkit, $295 assembled, and 
$395 for units qualified under our Certified System Component program. 


e FIRST of the New Generation 


Our innovative Z-80A CPU board is truly the first of a new generation of S-100 bus equipment... a 
generation that’s designed to accomodate multi-user setups and other high level industrial, scientific, 


Next month: The second new generation CPU board, featuring our 8085/8088 dual processing technique, as well as the Spectrum 


HIGH PERFORMANCE S-100 MOTHERBOARDS 
6 slot: $89 unkit, $129 assm 
12 slot: $129 unkit, $169 assm 19 slot: $174 unkit, $214 assm 


Ideal for use with the above enclosure. Unkits have edge connec- 
tors and termination resistors pre-soldered in place for easy 
assembly. Meets or exceeds IEEE S-100 specs; includes true active ter- 
mination, grounded Faraday shield between all bus signal lines, and 
edge connectors for all slots. 


LOOKING FOR MEMORY? 


Our boards are static, run up to 5 MHz, meet the IEEE S-100 stan- 
dards, low in power, and include a 1 year warranty. Choose from 
unkit (sockets, bypass caps pre-soldered in place), assembled, and 
boards qualified under our high-reliability Certified System Compo- 
nent (CSC) program. 


Memory Name Buss & Notes Unkit Assm csc 
8K Econoram* ПА $-100 $169 $189 $239 
16K Econoram XIV 5-100 (1) $299 $349 $429 
16K Econoram X-16 5-100 $329 $379 $479 
16K Econoram XIIIA-16 $-100 (2) $349 $419 $519 
16K Econoram XV-16 H8 (3) $339 $399 n/a 
16K Econoram IX-16 Dig Grp $319 $379 n/a 
24K Econoram VIIA-24 $-100 $449 $499 $599 
24K Econoram ХША-24 5-100 (2) $479 $539 $649 
32K Econoram X-32 $-100 $599 $689 $789 
32K Econoram XIIIA-32 5-100 (2) $649 $729 $849 
32K Econoram XV-32 H8 (3) $649 $749 n/a 
32K Econoram IX-32 Dig Grp $599 $679 n/a 
32K Econoram XI SBC/BLC n/a n/a $1050 


es [conoram is å trademark of Godbout Electronics. sa 


(1) Extended addressing (24 address lines). Addressable on 4K boundaries. 

(2) Compatible with all bank select systems (Cromemco, Alpha Micro, Etc.); addressable on 4K 
boundaries. 

(3) Bank select option for implementing memory systems greater than 64K 


TERMS: Cal res add tax. Allow 5% for shipping, excess refunded. 
VISA"/Mastercharge” са! our 24 hour order desk at 
(415) 562-0636. COD OK with street address for UPS. Sale prices 
good through cover month of magazine; other prices are subject 
to change without notice. 


SEE COMPUPRO PRODUCTS IN PERSON: Many of these products are stocked by finer 
computer stores world-wide, or write us if there’s no dealer in your area. 


ompuPro'" ко, 00250) 


Bldg. 725, Oakland Airport, СА 94614 


color graphics board. Please do not call for information on these products; sendan 5А5Е and we'll send the information to you. 


THE GODBOUT COMPUTER BOX 


$289 desktop, $329 rack mount 
Quiet fan, dual AC outlets and fusehold, heavy-duty line filter, 
black anodized front panel, and card guide. Ask about our matching 
power supply. 


5-100 2708 EROM BOARD $85 unkit 
4 independently addressable 4K blocks. Includes all support chips 
and manual, but does not include 2708 EROMs. 


$-100 ACTIVE TERMINATOR BOARD $34.50 kit 


Plugs into older, unterminated motherboards toimprove performance. 


S-100 MEMORY MANAGER BOARD 
$59 unkit, $85 assm, $100 CSC 


Adds bank select and extended addressing to older 5-100 machines 
to dramatically increase the available memory space. 


2S “Interfacer I” S-100 I/O BOARD 


$199 unkit, $249 assm, $324 CSC 


Dual RS-232 ports with full handshake. On-board crystal timebase, 
hardware UARTS, much more. 


unm 
3P PLUS S “INTERFACER II” I/O BOARD 
$199 unkit, $249 assm, $324 CSC 


Includes 1 channel of serial I/O (RS-232 with full handshake), along 
with 3 full duplex parallel ports plus a separate status port. 


—— Ó—  — M 
PASCAL/M™ + MEMORY SPECIAL 


PASCAL can give a microcomputer with CP/M more power than 
many minis. You can buy our totally standard Wirth PASCAL/M™ 8" 
diskette, with manual and Wirth's definitive book on PASCAL, for 
$150 with the purchase of any memory board. Specify 7-80 or 
8080/8085 version. PASCAL/M™ available separately for $350. 
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(415) 562-0636 


